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QF0REINER<7)JSdfc d lit 

8 0« 3 S-X-V-T 2 -<- X b ■■/ 

lf*>-f**7^ hfiiiCSAT', 7> 
.t— . IS, 31, 6£(£fc£-t/ 

8M* H#fli&, 
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■ MSX2/2+, VRAM128K 
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L^4-W, U>„ SfeIC 8fc<7- 
2 (±VRAM128Ki;£-£„ M7 r 
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(>l>77y>(i>/vt*-?7 )«0^*«, 

M. MA'ltSPDj: f) t^**Jt*>-7 

A: U (J L 4-^o /^o SiC^T- 2 T-ii. 
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t<j»:i<-)7U-XT:-|I^'l'*r!±Vj- 
( i fr L v > ^T-lifi # Lfe Sffl.*^*. 

•to t\ *-**-*&*tT*A*i: 

|c-*->>a*** -sfcfrlfCJifrv > 
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CfWrWV-A 3 WUD , M7r> 

ipffifiS Aj'/MWtrtFOREIGNER 
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IkKLfc. ^-t(i r JUNBASj 
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^. ill "K*^ tt*S.tft(i ? r 5i!; 
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B&aoDiofc-ffDoiifr/ufc/ucrssroto 



BIOSCWiTX) Basic Input Out- 
put SystemCx — 1,-j 0- -f l/Zl"J h- 

Tti-sasa-. MSXn*Z80A£Uo 

Lsi^«nnxu-5) t, =t=-*'-K. 

Aft, ;fjSSi: kfet/ol^feSW);* * 
*'3;S v i- >aS^n ?^> AcotSlg; U. 

•5= Sfc. i3/)>rototvs/^aS(7)*a 

USRWK USRMSIS. DEFUSRn 

9<ngs) r. D*e>9*noffl*« 

TDK tpattern generator table. X 
•f ' S 5 - i/ CO x - 9 & arUt L T I > -6 
VRAMCO— Srth, SCREEN(tf>SCREENl 
C0x=t= Ah^-Krii. 13t*IC«L 

;&5— T— 7H/ color table. £"?CO 
fe(r?i tfeiS ft fe)S stMt L T U -5 
VRAMcO— 8S#. C C &#£/)*.*. Si: 
;T4 : cO&tf«;t>5tf.SCREENlcO;rj^ 
-x— ^Jl/Bfc-3fc32A-C r-L#»&<. 

8 s:"T ; co-7Ji/-^'rt c 2 at'TL/r 




/3O50SCREEN1 Ttt 
VPOKEfclJ^rfcmvtfU 
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>SRUr, •y-Affl+f^ 

^uor\ $g8ijoisvv>i§ 

ruSAfeUSfrtUtt&Uc 
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fc^/3o5©SCREEN1 ? 

x©$^cffl^3^nrL\sR 

OM©&fr©BIOS£«^V6 
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33©7Sb^SH7E(10il 
Rri86)C, SCREEN 1 £ 

fflT.'r^x^fl-rfcto©*,©^ 

BASICCtt^/uriSSo 

^tttfUSRHScil^ ^ 
SS&BSgStfc,, ^eBiJO^E-Kffl 

t.^ •> ^©An75/ctf ^i^sa u 
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A\USRMS^ r SH7E©7 

©&<%£/£„ 
A = USR(0) 
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^g«iJ0^-KlcA5 o 

£©«£> fSAW'V^ffl 
&fr©0lcli<§D*#&n o US 
Rlll&AM&DnTn€>£n53 
££l;Wfct,ve"0&©£o 

r\ ^©x-f^^^Anst 

7iCtfE35A\ SCREEN 
1 ©VRAM©H/SA\ e^<- 
v©ct 5 C 2'-f ± S y£ C£ to 
orU^-5©fc 

Jb(li(TPGTd:iS)©A*^B 

TCT£l«8)GD*££l2fc/u<!:, 

f-gBiJOB, ^fflffliiWCA 
S<&t>fcCT£?iJffll,r&;r 
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W29^C*MVRAM(WII« 



^gliJ«O0DSCREEN1 
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& H 7 F F 


5"— 7* 




X ij 7 I m 
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& H I IFF 


& H I 8 
S H I A F F 
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( & H 2 I FJT] 




X i; 7" Z Si 
& H Z F F F 




X 'J T 3 H 
&H 3 7 F F 


& H 3 F F F 









#eH9©$n#*>2r57n^A 
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9 m 



10 SCREEN 1 :WIDTH 29 

20 DEFUSR=&H7E:A=USR(0) 

30 FOR I=&H2000 TO &H37FF 

40 VPOKE I >RND(1 )*256 

50 NEXT 

60 LIST 
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BABCIveFBH I M I.HNnF OF- T U U U X V Z t V ] _ 

' ,1: I..-..I11 i! 1.,,,, ..,■-. <"'": 'i^ ■.• 4 

3*'*f l-T_- ; i 3 ' I !■ i J -".I pQ7> ** 




/^->««ix-^b 



A^->«^^-^b 



SCREEN 1 NIDTH 29 

PEFUSR-&HTE.fi»l 5R(0) 

efi? 



..t.o Wto 1 '5t [M£J2_ 
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VDP Video Display Proccessor(b' 

msx2 ro vdp c fie t> n t i> « lsi c 

B. MSX-VIDEOd:^ ***#*«. 

MSxroaffi«^iicrovDPic:+-? 
(&d>^U) »bnTU-5cD£tf, »o 

lliIliftliAt$l\ Oft IS. 
VRAM<7)sfiJia»d; o &*»£:„ tC'i 

r. vopc<5j;T*o&aj-rt»ro 

VDP(n) toiy^fiSS^SiJ, 

*fc»i] rotate 

l±zr—~j)l (pattern name table) iz 
^oCtfeS-5. Hlfii 1 *t 1 *NSU 
TUT. Bitf<D£**Bfl-C:S:W£5 
t, A'*— >**?—>'*©**«&"*•* 

tfA^TUS. J£IC, /f*— >*#? 

tat. f<DW&*v^t>?n-Ft 

^n«„ tc^r, LocATE^rx^ 

rogis-siEHisBt'bnTu-s* 5 , a? 

K0*631t*3>r-D— Jt/D — KtU 

-5#ft&*IWD-r-'ICSUiJ*Te)tlT 
U-5tf , VRAMTIS*1> 5* 3 - K 
/)>631B r H j^t'iD^'^^-C vOXv 
5 C9I !JST?>nTO«. VRAM 

T'ro+i'^^n- h'scttA-?- 

Z£\Z,6T\-VCD r Zl?y$A>\'5Xj 

MS X 1 a—tf-'N c miiMon-M 
c vtf°5i h -v ^ *i> ^ ^ ^ to— ass- 

( r *jUl* 4 X?) i;»4femiT^ 
strotf*-5„cnBMSX2/2 + rolftt 

r. msx lns^oorox^ru* 
giiufflroA's-^is^fmi. msx 

lfeMSX2/2+t*it<ft5U 

MSX2/2+a-tf-^ *p<--3?C* 

ifl5&JpATA±Oo 
15 SCREEN : W I D T H 
8^ : WI DTH kg 

ro±3-9-roifc'itr&<. BiS-tf/w* 
ro£^A 5 a*_-5J;ol;fe-5„ cms, 

IU72, 3fH«PGT£. SCREENO 
©801=^- K. 40**— KOPGTtf t 

A-5tyicS:^«A-?->tfVRAMC 







HUSH 



t^5c:\ ^eBiJOSCRE 
ENlfflVRAMtt. SCRE 
ENECD^nt-f o< O^CO/co 
-H-lt^Mo ^eSiJO^E-K© 

xi^^An-sti^^is. 

B I OSffl r VDPffl*^^7 
f >^E(SCREENE)^- 

t, r ilS^^©ttffl&/ctf^S 
CREENEitqlUC-rSjtn 

/3o5BgSCREENE£ 
L\5«6^:St*l*firrS£, «tfc 

<S#, 3WSBAS I C©f$ 
*§©m^c UfrU VDP£ 
tf-*SCREEN£K:l/fc»fc 
tt, BAS I ccit>r»<* 

reiZISSCREENl tU5 

0, BAS I CC&l/CSCR 

EEN1 ©&9£U VDPC 
^UraSCREENEiLr 

SCREENE©IMSl^© 

SCREENSC^USaa 

B ~255©U1Itf 3©«I ?3@ 

< o^^urAnbnrcSS^ 

fbU&lHX? 1 te'i* K/3VuBS 

-K D^6?55fflX?A' ; 31Z'> 

^©S^ffltz^KCtt. -en 



&*m&m 



,1 MO» 25b 



30 »EFOSX^ 
40 FOX 1=0 TO 
\0 VPOXE I*-tJi±- 

70 F%% 7 I=^H2000 7Ot=i*37FF 
90 VPOXE I,tl HO* O *-5>*16*-± 

l%0^FOif J%*flQ ^**7FF 

i 30* FOX* J=0* TO £*:ifP0X£ I +*J*&00*. 

,*:H£X7 

%40 HEX J 

Ok 



V_ 



tkWr^itXMz. T^TBASICTC " 

ur, HH3»©1 ?zrftm*l 

fflPGT^IoW-S, 
SCREENESHn-rSts 

PGT«i"^r ocurus5 

^^tf*tU5U„ -&©P3©i(f 

>SSUrLK©rco [qlflfCC 
T=feSS<ifaDlc^^.rL><o 

^©iili^^^itbfcfeffl/co 
SCREENEr-R^**, ? 
©SS. SCREEN 1 C=fe<if 

©X?^PNTtHJS3l2^h 
SCREENErfflPNT^H 



ZX-T-2- icntz 

suru5fcre„ -rst, s 
creeni cpjtfiins/ 

HHffl±3^ffl I tfXSOia, 
SCREEN! £Hnlyfc£*. 
gBMCPGTffli'J^l Cffl 

*^Sn§^6/c„ CTB^i 
©SS&©r. e^W^RfflgB 

I^A^fct^B. XU7 7 ! ©/^ 

^6. I'JT'E. 3ffl©PGT 

J3^A c j;UtX : ?tfEx&n©/-c„ 
3©^H^BAS I CW5 

/ctf^vv>i§r'^orn57 
ni7^Atf^LV ^ewo^v 

fcffliK©tiLtf;ote)e„ 



SCREEN1tSCREEN2©SS^^ 



SCREENir-P3S»S7P^5Z» 
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40 


50 
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COLOR 15>4.7:SCREEN 2 
CIRCLE ( 127,95) ,95 
SCREEN 1:KEY0FF 
DEFUSR=SH7E:A=USR(0) 
FOR I=5H1800 TO &H1BFF 
VPOKE Iil MOD 256 
NEXT 
GOTO 80 




SCREEN2Tffl$-*^^; 



&nW£'n L ts z. tz t z h 
SCREEN I i;fcPto<Iitl& 
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SSaJ-SCREE^-arUffl-CV 

y.-t-:Zr>tz < s**^^4* s ofc 

i^/i'JTSo WO^-OTte^cD^ 
7"n V=7 AUttil L T^ftT^ 

1 



i^X^rtitos 
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COLO 

SCRE 

DEFU 

FOR 
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NEXT 

FOR 

VPOK 

NEXT 

FOR 

D = V 

D = D 

D 8 

FOR 

NEX 



R 15.1. 15:SCREEN 2 

EN 1 :.WIDTH 32:KEYOFF 

SR=&H7E:A=USR(0) 

1 = TO 256*3-1 

E I+&H1800.I MOD 256 

I=&H2000 TO &H37FF 
E I. (I MOD 8 +5)*16+1 



1=0 TO &H7FF 
PEEK(I) 

OR D¥2: D=D¥VAL( MI D$( "8444221 1".I 
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10 COLOR 15.1 . 15:SCREEN 2:SCREEN 1 

20 DEFUSR=&H7E:A=USR(0) 

30 AS="ac"+CHRS(29)+CHR$(29)+CHR$(31 )+"b 

d" : AD=ASC("a")*8 


1000 
1010 
1020 
1030 


DATA 
DATA 
DATA 
DATA 


1111000000000000.86.64 
00001 111111 10000 .89.64 
1 1 1 1000000001 111 .A9.68 
00001 111111 10000. A2. 98 


40 LOCATE 10.1 :PRINT AS 
50 RESTORE 1000 
60 FOR 1=0 TO 15 


104-0 
1050 
1060 


DATA 
DATA 
DATA 


1111000000001 111 .72.9A 
0000111111110000. 75. 2A 
111 10000000011 11 .D~5.27 


>' READ P$.C1$.C2$ 
80 P1=VAL("&B"+LEFT$(P$.8) ) : P2=VAL ( "&B"+ 
RIGHT$(P$.8) ) :C1=VAL("&H"+C1S) :C2=VAL'"& 
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1070 
1080 
1090 
1100 


DATA 
DATA 
DATA 
DATA 


00001 111111 10000. D4. 57 
00000000000011 11 .F4.5D 
0000000000001 111 .F4.D4 
0000000000000000. F4.F4 


90 VPOKE AD+I ,P1 :VPOKE AD+ I +SH2000 . C1 
100 VPOKE AD+I+16.P2: VPOKE AO+ I +&H2000 + 1 
6.C2 


1110 
1120 
1 130 


DATA 
DATA 
DATA 


00001 10000000000, F4.F4 
100111100000001 1 .F4.F4 
1111111 1000001 1 1 .F4.F4 


1 10 NEXT 
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DATA 


1111111 10000001 1 .F4.F4 
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DATA 


1111111 000000000 . F4. F4 
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2 J li,Ji*S?nfc7'P?'7A£ * -7fc 

iHTC^S 7,^-7, $riSI»&LfcU. R 



e MS^aa(:*T-3 7;';-r%£x<7)}f 

li>l7 f i '-5'* ( T'T < &<nx-iZM„ 

«V»7ftt, 

1 *b(i-C*)t-7'LTtil.>Wi7 
? UfcL>7"P?'=A5-7 1 -7'ifcli-= 

< T.?ft-ibp-K-r?>„ ;<»£?. »g 

SsH-RUNliL *mT& < , ( I ST fc 

RUNTJtr-?*'***),, 

2 r Sr ■ *T*; : A £ 73SJ17 p ^= A 
2 j<7)IJl>-?/;7 v -7"ir;(j7 i '-f 7? 

MERGE"CHECK"0 

£T4. ItlT 2 0OT7'P^vA*< 

SCREEN 0i> 

WIDTH 4 OO 

£LTK<„ 

©G0T09 OO 

£ rtll* r »f4T t i C * S 7S£7"n y 

7A2 jft<si;iii;«\Tn-rn<r>7"p 

9^L.<r> r fmmr-9jl:mClliA 

-9£1£Z, 

TL>/;^tS-^<7)7'P?'7A5- I =£ I ? 

iKMbTL<<„ 

D(tIE*%7L.fc b 4 A-ib(7>fT«% < 

'jfrALss5ti?.%--r?> 
®x-7'(7)iS7£;^*\ r^T4< 

4-3fcf). OK, 

DELETE9 - 9 6 OO 
£LT r Sf-m>r*5 7%jl7 - q?-7 

A2j*aatrs. 

®*mfc», fi77fw)y-i7' 
n«i4f-7'itBf-( 7i>i;-tr 
-7'LT4"i, 
RUNO 

'lOCftT. 99/<— t>h. JESSCy— 
A7"py7AA ! l))<(jrc 7?*^-, iE 
£i;fT«)l,<U-fr-7fc'J. i7-*m 
LfcULfcb, 7'p^7A»l» J PSa 

OT.«!*^##l:LT. Sa^?SU5 7 

*ig;S'r5r;«)<7)*li(.>%lJl;»J; v,. 
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9000 


» _ 


-- NEW TYPE CHECK SUM 


9010 


V = 


PEEK(&HF676)+PEEK(&HF677)»256 


9020 


V1 


=PEEK(V)+PEEK(V+1 ) *256 : L=V1 -V-1 


9030 


vs 


=PEEK(V+2)+PEEK(V+3)*256 


9040 


IF 


V1=0 THEN END ELSE S=0 


9050 


F0RI=4T0L:S=255AND(S+PEEK(V+I)*(IM0 


D9+1 ) ) : 


NEXT:PRINTUSING" #####>###"; VS ;S ; 


9060 


V = 


V1 :60T0 9020 



5Zfo~X 



yn?5ixmmmT-$ 



9000>200 
9040>134 



9010>152 
9050>102 



9020>153 
9060>??? 



9030>118 



T'P^TAft'^iLTfci i<mtlL'S^*%£lt. tta/\#*TMSX ■ FANSBMBiT. tztiL. UT<nLI:ir<$iT<t-:£l\. i'DRHMgl'iW 

&-9xr>m£iz&^T^zfi-$:mzii}tnzfi-i xTitu^frzmsQ'fi^^yimT-sifrte^fr. ^t l> t x5-* < T5*-^-a(!ieo«BOTtt^ij,7 , p y= 

A<7)ATfcMSXfc£<(;»l*T.«^B4-|$<fl~£<73 4 F&4^fr'b6B^aW::i;(»0 3-431-162 7 )„^my5't<7)eJf.^lJ®lt^tl7T^.>i•t+^. 




H90 ^CQTOX^- 



mQ®s WM<t.2M\Z 
t)1a.-oCs Syntax error, 
illegal function call 

^-##g£L75i£©xt 
®75;£IZOU-C!&BJ3Ur 



>5^t-I3u z©2ocd 

U^lM^-vOlltof 
DATAs Subscript 
out of ranges File 
not OPEN##g£U£ 



Out of 



DATA 



O ut of D ATAt, Sy nta x 
errors Illegal function 
cai'ltlRlL;d;5C s £<#63rr 

3©x^-B, READ^r 
m^z\ te> frsx— $7©ii8t 
t, nsc&sx-S'©^© 

Xx-#64©JIH£Uc:B, 

oB, READXrSw^t^ 

^g^x-^©f@?5cfci9^n^ 
£„ fe5 1 -3B, DATAX* 

wteimtck o'j>tj.i \mstco 

tzti\ Out Of DATAI5- 
CPg6t\ l7-tf*tUfci 
£B, X^-tffgabfcfifS? 

x^OrBlAV, Xftflx 

COLOR 1 5, 4, 7 : SO 



Out of DATA in 1 



REENO : WIDTH40S) 

£Lrfr6, 

L I ST(i5-tfMLfcfi 

PRINT ERLO 

ix-rofi^fllOfcni^B, 
ERROR ERRO 

ttu t S53ur<ns©r\ b 

AS I Ci£fflIftB3«&£-|c©o 
m5, X^-X>yfz-i>'«^ 

Out of DATAix-fflfS 

£i/fce£ur?is£n3©», 
x*— 5"£§6*£/uru3RE a 

D£©£5fj7c £3"CB, x 

^f5g[5xMJ, READ^ffl 
EOC^SFOR-NEXTJb 
-?©IWc„ 



1 KEY0FF:DEFINTA-Z:C0L0R15.1 . 1 :SCREEN1 .0 
-.WIDTH30: FORI =0TO6 : READA : VP0KE82U+ I . A : N 
EXT : FORI =0TO328:VPOKE1 472+1.1 -254* ( I M0D8 
= 0) :NEXT:SPRITE$(0)="<~3A.A,A.~<' , :Z = 6144:E$ 
=CHR$(27)+"Y":S0UND7.234:S0UND12.22 
1 P = -P: RETURN: DAT A238 .11.7.2.13.6.4 

r K&mi<r>'fr I T'OutofDATAiv-tff^o README U tz$>$ 
FOR~NEXTJU— 7°C0@iclJjEL^ofcC7)T\ f-^^i'yHJ 



J-Ufl-CSSREADX©!] 
9IC35-5, FOR-NEXT 

ofctS, -r^r©DATAX 
^CS5x-^ffl1IISS^i '7 

i^-rB, xt7-f££.fi~C<D 
ilSWMl^D. DATAX* 

-^©fjsFEsaurix-tffS* 
■rss5tf^n©/co 

DATAX#^n?xA©15J 
frCSSfrtofrb&UdSB, 
r ?P?'5AISittj£#P<aUrB 
LAV, 7D?xA)gtftrB, r 7. 

7^-r hK^->x-^(ff i 

rBt^Z^jiil^ct^CDA 
TA£tf353frCB, Mbtv 
-E-©x— ^ ©l*l§ £ 1°!fj nfi» 

©/Co 

DATAJCrB/,j(*>V) 
©eiS^ r .j(tfU7fK)c!;©n 

sugsutffcnfrfc^x^-r 

d©SA\ 7n?'xA©&fr 

rRESTORESAM&bttr 

UttB\ ^©RESTOREX 

ftmfc L/ r l ^7§%©{tfs=fc 

Subscript 
out of range 

Subscript out of 
range £ B, MmmWJi v 
z\ay&frC&%M&h\ w&ii 
ntcmAm£OA£<te^zij 
m^fttmzg&t&nti-tzc 




Sexier (2T<7)V7- h#i« 
^©^©IMl^&^i 

^P^A©^^^^ 

oru-§gB»r\ 

D I MW$(1 4) 

dLrsna; *>ypi*i©iitf 
a^tiic&o, d i Mr-iss^ 
Lriutjx^moc&oms,,' 

£B. ^©£8fc©1I£PR I N 

\zmmtsnzi\z>&mf'j:z7- 

©HH£^fc<!:£B, -&©£?£ 

Dfi^ttAL-riise^xw 



File not 



OPEN 



File not OPENB. OP 
ENSazmi\Zl\Ul\yy-(jV 
Ctil,ZA}hJ]*$5Z.&i55<t: 
Ufc££i::fc£5:E^-fc*a\ 

USB, X^-f£4RICS5, 
PUTSPRITE©tJ-r50=£rT 
SPia^td*[c^4t"53t 
tfEfflMC^Uo £©ix-tf 
SSUfctSB, ix-?S4^ 
CSS. PUTSPRITE©^ 
cJ0^^x>vi7L-d:3o 



Subscript out of range in 5 



5 A=(A+R)MOD452:B=ASB(226-A) :C=(C+1 )M0D8 
:PUTSPRITE0. (B.31 ) . C+3 . 3 : SOUND0 . 25 5-C-O 

r W*r>W&Oi<n'<n 5 T-x^-3g£ x^-^JSiHli, absMS£*T%« 

X'UMii^OTfcA(CZC7)X ; 7-A < ^±T : S>%&t*-&o 



File not OPEN in 70 



70 ON A GOSU8 1 20 . 1 30 : PUTSPRTE0 . ( X . Y ) . 5 . 
0:IF STRIG(0)OSTRIG(1)THEN LINE < X . Y ) - ( M 
,N) .K+1 :K=(K+16)M0015 

•"PRETTY POINTSjW^rTOT'File not OPENxv— 1>*%&, 7°n ?=r A 
*m&ltztZ%, PUTSPRITECDXX'U(7)JT*>RiI<.^-ofco 
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50 V 

If 
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o I 

R'89 
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H 



7 X 
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n » s 
D it 
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ft 
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W 7 
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ffi ? 



47 



- 



^-TT.TT^T.h 



DISHONEST 



E53EE32/2+ RAMBK 

BY Beta.K ^9Qi&lT^lt2i7^-Viz^D^t 



T 



V 



y 



1 SCREEN1 :WIDTH30:KEYOFF:DEFINTA-Z:FORI= 
0TO23:VPOKE256-(I>7)*560+I,VAL("&H"+MID$ 
("FF81B1A1818181FF", (IM0D8)*2+1 ,2) ) -.NEXT 
:V(0)=1 :V(1 )=32:V(2)=-1 : V (3) =-32 : D=8204 

2 V=0:K=1 :C=RND(-9) :X=6241 :S=STICK(0) :Q= 
(S=1 )+(S=5)*2+1 :W=254+Q*11 : IFQ>0THEN2ELS 
EC0L0R8.15,-Q*11 : VP0KE81 92 »208+Q*1 03 : VPO 
KE8196>254+Q*4:VPOKED+4,208:VPOKED+2,0 

3 T=500+Q*200:CLS:GOSUB8:A$=STRING$(100, 
104-Q*8) : LOCATE .22: PRINTA$A$A$A$A$A$; :F0 
RI = flT04 + Q*2:G0SUB7: NEXT: LOCATE 10.1 : PRINT 
"SCORE":IFQTHENPLAY"T180S9M50 00L8O4FGEFE 
DCO7"ELSEPLAY"T120S8M800L8O3FGEFEDCO1 

4 S=STICK(0) :V=(V-(S=3)-(S=7)*3)M0D4:VP0 
KEX»104-K:X=X+V(V) :A=VPEEK(X) :VP0KEX,7:I 
FA=131THENP=36-Q*28:PLAY"N=P;4":K=1-K:G0 
SUB7:T = T-3 + Q + Q:C = C+10: LOCATE 15,1 :PRINTC 

5 FORI=0TOT:NEXT:IFSTRIG(0)ANDO=0THENPL 
AY"C64":C=C+Q: LOCATE 15,1 : PRINTC : GOT05 

6 IFO = 0ANDA< >104-KANDA>32THEN4ELSELOCAT 
E1 , 9 : PRINT" CGAMEOVERD" : VPOKEX , 3 : PLAY" 03 
L8CDEDC":FORI=0TO0:I=PLAY(0) :NEXT:G0T02 

7 LOCATERNDd )*30,RND(1 ) *1 9+3 : PRINT"4" 

8 VPOKED+K»0:VPOKED-K+1 , W-K*Q*4 : RETURN 
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r J-y/\yy\ Beta.K 

tZT/ Sffi<7)*5 
CxxAJ6tf>/;J:^ 

• BY Beta.K 

fee ^-+>-?-+>o 



v7nH^^J©VR ^° T f T l ft-.. 
A r Bj©iia^(qllc:^5+ AM®^KU7.lg» VtA &TONOV°To <r r j — . 

A$ ^U-O-r-jl^*^ tofflB*fe(±fjl4t>Ktflu \^N«**^ "\ r^Ofiu \\\ I )| 

U7fsfc»<ox?5y us, Tfft4tf-ys*^*e) i\fc' / lC~~yJJll /I /I //I 

C 7.37 r BjfflVRAMA^-> '.Z2L. Q Ag/'W/WlV^iV 

D B^BCX¥^Jb-7ffl yx*U— S^x— ^l/Cfet+5 

*3— ?— ^JUttPKb* 7KU7. SO*— L2&— h ■ 

P 59)*§^*ffl -5>^i«fSMiS • r B J ^B)(7x'r'7^A*)« 

Q ^-KigtR75^'(0= fl^S B r ^J^^ ■ 

v>*>?,-l=7^3» St— KM^ ■ • r »j©il^2g;*^ mm 

S Xf-f'^AM •£M05$ISi£«^-A^-K @7ft— X ■ 

v r a J ©iifi : 73[qi(D=& f^^^©eiss imj^la/c, fpitrs •s^f 5H©tJ]c>}ix.tr 7' 

AR iSn^^ill 11 U-pVZISZn.— X/ZQI •y7>>&LlPy*r— K4B9 SgS5S«©>l989^4E^7T>?7»7><r^<7)fe£?gS!T^^lJ r BATTLEMANj 

48 C, ^A*f %SyA ft' h '/ X 2{i. 3filJS«(7)TA. l "THEMYSTERYOFTHETOMBj/)Sa(f5'i<n2e£l.^)SSC'i'U*Lt SS»«Ki(JUT<»t fc'J T-f, < I fi>BATTLE 
«aT Wr^^^m MAN<2ft>THE MYSTERY OF THE TOMB<3fi>3!Sat(*ai1$ffl//<4'(ii>GASBURNER<51ji>li-3 *>■*>;(.> 




mm&womx 



VRAM©«fiE 

SCREEN 1 ©VRAM 

tor, 

>X0-y^M : r-7)\) 

n$>—yyj:*.L>—$ : T—J 

ny-y^m^-yMZ. 
mm<Dtz^\z£h J t£X , ¥ft'm. 

7j;isnrn3fr£l61fLrn 
3„ 7Kb7,tf!iEiiiS£il 

?©+ V =j O 9 a - K tf ?— 

fc^uruscDAV^-v 

£?IS8x8K-vhrlff££ 

-5IJ8iHK«Il:ai> 

(Sl#BS)c 

r D I SHONESTjrii, 
SCREEN I ©JfiiuBA 



s\czumm±wizn^z 
i ^©tusetsMe^Ja^ 

r*37cl;r/-;:tf\ l/Oli, 8 

r, vn-yzuzffi&gi • 



©fc'(SE#E 



-^Lr, -& 



©^ji/-^mffi©iu«e • m 
«e^«#uru5©A^5 

-7—7Mz, tc£iH£. X 

?A©Suflg£l5, ?flig£ 
l4CUfctT5t, H@±© 

f^roAtfzrogegcfcCK 

5tz,AtzVZt<S.<@.B~G 
©8«^©X¥ffllBg=&|3ll« 
C&3o f-^Bl/Mhr 

ffl±lffi)tfiuS£,Tffi4e 
l4lcLfcynK,BHFE = 

g=feESiJAVd:<«ri, -£©£ 



5/>^>C7^-K 



? | (0) ^ * (& HFE k £ (0) 

(&HFE) (0) (&HFE) 
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• ZmztzUtz h i: g liEJOTj: -J c&tf&b*,, V-l.t.9- M& 

nxcK^ ♦%-ffi*i:a<7X>f(t*bnfchizs*3 l h glasses: a 



DISHONEST .lifctt^ XA-X&iI@tflD 
gSx.©fiB8g£fliS 




r DISHONESTjrtt, 

■h=>— T-y)i>&JW-yy 

z>fizmm\^zmt^m^m 
mzwomz-zi^otio 

r DISHONESTj 

ffiFCfcfcUfctf, r DIS 
HONESTjriJ, ff 1 rx 

*.-* ■ s ■ h(D3-zmzm 
(D^vz'O^n^-y^.'mm 
uw5o 7.^-xffmizm. 

ftorH5*b, CLSrH 
M±fcffmiztj.&1otttio 

zzz, Busetgsgt, 
r\ h©*-5— 5 1 — ^JUt 8 - 



-^£SHFE(iySg=g, 

s«e=Kfe)cz-rso -&u 
r, 7b-r7-c-iuKCh« 

r BjA^ofc*Cg^«$3 

-&ur,±©¥*©cfc5c r aj 

^♦j^SXofctSCK©!! 

£tfJ9$;tr, &fcfctffJ8 
^wmiiW, gth©At7 

53tlcft§©^: (£T©0 

#S3)o 

—7?, 70 y 3 >^e- Kr- 
is, £3\ ^u-r^f-./i/K 

cur, B©ii-Dt^cii, 

K=l ©<tSttg(SuSg= 
tt, K = Offlc!:*ISh(ijP 

0<Dm*W0&*-Zl\5te 
T©0#PS)o 



T^S/b^-K 



^ I (0) % 4r ( &HF3 V * O jas 
h ga,*& s gs^ 5 ga.*fe 

(&HF7) (0) (&HF7) 
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A 

-Tb 
70 
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I y 
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ir 
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50 V 
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m )w-yvx*[s-5if-7)\,&ft'5v-5o-M)m 



%£. ^-T-7Jb©7Kb7t+l^7^a-K®ii 
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0-7 


8 — 1 5 


1 6-23 


24-3 1 


!> 



255 



2040-2047 



*1-7?^=I-K 



T h'UT. 



0-7 



1 6-23 



24-3 1 



248-255 



gl=li. 8I92(&H200 0)7JPX.fc7'KU7.lZ^i;S-r 
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ES32/2+ VRAMB4K 
BY 35-3-OTN 



<*mm&75\zw<>-yiz&03:t 




\ 



i r 



T 



V 



y 



1 COLOR, 7, 11 :SCREEN5,0:SETPAGE,1 : PAINT (0 
,0) ,2:CIRCLE( 128, 150) ,55.6: PAINT ( 128.99) 
,6:DRAW"BM0.108S128C15E1NF3E1R4F1NF1G2NG 
1H1G1 ": LINE (126. 139) -(130, 140) ,15, B: PAIN 
T (0,0) ,11 , 15 :SETPAGE.0 :LINE (79.59)- (161 . 
141 ) ,1 ,B:DEFSNGA-Z:DATA, . . , , 32 , 49 , 1 6 > 1 4 

2 DEFINTF:FORI=1T09:X(I)=VAL("&H"+MID$(" 
7F7F998D6371477FB9".I*2,2)) : Y ( I ) =VAL ("& 

H"+MID$(" "89AD877387734741 47" ,1*2.2) ) : RE 
ADA:SOUNDI,A:NEXT:SPRITE$(0)="4" : SPRITES 
(1 )="p'mp":DEFFNA=INT(RND(1 )*M)-M¥2:V=0 

3 R=RND(-TIME) : FORK=0TO4 : M=40-K*6 : FORI=1 
T09:H=(M-1 ) # . 06 : A=1 28 : B=1 72 : C=0 : P=FNA :Q= 
FNA:PUTSPRITE1 , (120.100) .1 >0:X=X(I) 

4 Y=Y(I) :F0RJ=1T0M:A=(X(I)+P-128)*J/M+12 
8:B=(Y(I)+Q-172)*J/M+172:COPY(A-40,B-40) 
-(A + 40.B + 40) ,1 TO (80, 60) . : C = C + H : H = H- . 1 2 : 
PUTSPRITE0, (120.100-C) ,15,0:SOUND2.47-C 

5 S=STICK(0) :X=X+(S>5)-(S>1ANDS<5) :Y=Y+( 
S=10RS=20RS=8)-(S>3ANDS<7) :PUTSPRITE2, (1 
20+X-A,100+Y-B).7,1 :NEXTJ:IFABS(X-A+2)<4 
ANDABS(Y-B + 2X4THENNEXTI.K:V = 1ELSEBEEP 

6 IFVTHENFORI=0TO99:COLOR=(7. ,IM0D8,7) :N 
EXT:V = 0:GOTO6ELSEIFSTRIG(0)THEN.RUNELSE6 
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lEO-A, 100-BI/T«tS 
X(nh Y(n) ggflffig 

\z£j\iz>?n-y(DwmmM 

C tK-JWDB* : Ttt-JU© 
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I : ERifCfcttSTK-JUDlK© 

iamizuz, 
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SffltL— tr-EBH8) 
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J, K JU-7ffl 
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R SLStfTBSHfcffl 
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l*S L t» Micky £A, K 
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^s itzo ^mtm& 

77>Tt» /:*S> 
S^tTKOUGAS 

S/t*ntt'iM'J J to 

^.(7)Tt* , ', ®^<7)-tt 

V.--C5fe«r-?nSLfco 
•BY&-5-OTN 
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•^P-7©^SSYISS^S« 
••^-AJtlTW^S^'J 7b 



50 ^^jJP l %^*j l< v!!#U * 40 - r '""^ J'*> r t '"' 1 ^ jOM&^r-T, if;. <f590<7)3Sgl;*4 r =8 9THENjli r <>8 9 T H E N jOTr.Titi-'T'U;., lVE&<nmmT-9 



12, 440>I72, 5 90> I 7 ItUVit, $htz. ff26Wl^fflf-?i:IU» ! *'ULf:. JEU 



-?(J, 2 6 0> I I 4 tt£l) JT. -» 



*mKrfJ=vQ 



DRAWro^ritth5£<?£ 






«©JSil^"r5fflCDRAW 
JS;£B7>orn3= DRAW 



DRAWw5^©«itB, 
DRAW <£?it> 

aaj5©fizgffi5£, ^U7i[q]d: 
SiSS. SJgfc££S:rr514 

«©^7 -I" 'V 2 7^7 Dpp^ 

#A3(T?E#PS) 

DRAWw^fflW^BtfcK 
fim^P^Ar, JS<0 
JfJfcmfetr&fcO, SS'K & 

©++>7;U7P^A1 B, 
L I NEro^tDRAWro^ 

z\ mamm^!&<ya^3 

AC. DRAWw5^©S5/)\ 

est i *nsex^/i:A\ ^ 

10 C0L0R15.4.5:SCREEN2 
20 LINE(80> 100)-( 180. 1 
30 DRAWS4BM80.102C15R 
40 FORI=0TO1 : I=-STRIG( 



Aj©ER^©eSf ^, L I NE 
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■DRAWtfp-fcfc:<°fcS»»CM8B 

1 COLOR. 7. 11 :SCREEN5,0:SETPAGE. 1 : PAINT (0 
.0) .2:CIRCLE(128.150) ■ 55 ■ 6 : PAINT ( 1 28 . 99) 

■ &Jj2JJ!iEia3inSEHElEBBlEHlEHlEIE 

IKlSU: LINE (126. 139)- (130.140) , 15. B: PA IN 
T(0.0) . 11 . 15:SETPAGE,0:LINE(79.59)-(161 . 
1411.1 >B:DEFSNGA-Z:DATA. . . . . 32. 49 . 16 . 1 4 
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10 C0L0R15.1 .1 :SCREEN2 

20 FORI=0TO64: J=IM0D4 : K=IM0D1 4+2 

30 CLS:DRAWS = I;A=J;C=K;BM120.100U1F1E1D 

1R2H1R2F1NG3NE1F1":NEXT 

40 FORI=0TO1 :I=-STRIG(0) :NEXT 




Qn>y>^ywy=7 

A 2 <7)Hfi^i] 





?5-?4vV7VUfii^-nSk 


U <IESS> 


Jail L <f A { "b±C^ll1" S *<l»>iJsraS#w 


Mx, y 


KB L fc# bxty Tft£ L fc&«K i X&®t 


D <8§8t> 


HkmLtitfbTlz&thTZ 


B 


SSBgjJbofi&W^v KC*tLTOT*-^«b 


l <mm 


iIL4*<«iti:»»t« 


N 


ffiwiLtz<n-h.m®zfflteLtzmmizht'z><,m 


R <S§SS> 


SBLfcA^-fifr-fclj-f* 


A <fc J$> 


~3T*L, = 0°, 1 = 90°. 2 = 180°. 3 = 270° £ 

tts„ jy.»<75 3-=?> Kiz**ux*?sb 


E <E»> 


flSiS L 4-A < 6*^«>±C^l)-r S 


C<7)7"3-K> 


»®-f 3fefc*B£-f S.A-7-:--- KU0-15-E 


f <mm 


IIL4*«i9*»ftTi:»«r5 


s <*«> 


;*>r — VI, 7 t- * * (»«*ffil»c7>-f-S*) 4dtt5. 
fct*f,n5„UB(°)av> KC3StLTti» 


G <S§8t> 


«aL43&*fes»«>Ticwft-r* 


X <*?£»>; 


*<3-7>K>=;<»fflaa>(->J:-3l:LT«(B33St,fiEA6 


H <S§*S> 


ffiH L 4' A< £>£&«> Jilc&Sj-f % 



M 
S 
X 

p 

"5 

A 

^P 

U 3 
I > 



•2 

!• 

t * 

as f 

Jl'88 

(B M 
8 B 
2 •% 
I 
R'89 

* * 

4 



tS. 






<Ui;t)57P>»3VD-i -?:ffi2-5SSCD^^a-@>l9897C^5B^P59(;)°gK?nfc r VOICEvi.>-r>j<7«Tl 
ft'J*Lfc JEL<(i, I 80>l 5 5tt')*r. ifc, U^KT^TlSOCJ,?. 1 "! jlJ, T>\,->T<-/ VOVVX&n^Tt,, 4Slt 

tt)L-cL*i.>*Lfc ;•«)^'J.•Sl.^ 



L>o#J;l;nff)/^> 51 



KODttft© 



ES3E532/2+ RAM8K 

BY Nu~ -Wi6U : 73tt38'S-$>Cd50S-r 





V 



y 



1 KEYO 

2 FORI 
1 :FORK 
*256+J 
:NEXT: 

3 A = 0: 
ISSILE 

4 FORI 
D=RND( 
SOUND1 

5 A=(A 
:PUTSP 

6 IFT= 
D12.4: 
ING"## 

7 IFT = 
3) :Y = Y 
*P¥12: 

8 PUTS 
FABS(B 
PUTSPR 
03ELSE 

9 BEEP 
01 :I = - 



FF:DEFINTA 
=0TO9:A$="" 
=0TO1 :FORL= 
*8 + L) ) :NEXT 
SCREEN1 :COL 
M=M+4:R=R+1 
## ROU 
=0TO30:PUTS 
1 )*8'-4:0 = R* 
.0:SOUND6.9 
+R)M0D452:B 
RITE0. (B>31 
0ANDSTRIG(0 
S0UND13,4:M 
";M 

0THEN5ELSES 
-P¥3:PUTSPR 
IFX<0THENX= 
PRITEP+1 , ,1 
-XX8THENF0 
ITEBf »15-I. 
IFM>0THEN4 
:LOCATE9,2: 
(1=STICK(0) 



— T~ 

Y:SCREEN2, 
:CIRCLE(8, 
0TO7:A$=A$ 
L,K. J :SPRI 
OR15.0.0:W 
:LOCATE2»0 
ND ##";M;R 
PRITE31-I. 
7:P=30:T=0 
:S0UND7,46 
=ABS(226-A 
) >C+3,3:S0 
)THENT=1 :S 
=M-1 :LOCAT 



3 

8) ,I:FORJ=0TO 

+CHR$(VPEEK(K 

TE$(I)=A$:CLS 

IDTH32 

:PRINTUSING"M 

(0.209) :NEXT: 

:X=112:Y=176: 

:S0UND8, 13 

) :C=(C + 1 )M0D8 

UND0.255-C-O 

0UND9,16:S0UN 

E10.0:PRINTUS 



o 



=STICK(0) :D=D+(S=7)-(S= 
ITEP, (X,Y) >10»P¥4:X=X+D 
0ELSEIFX>224THENX=224 
4:P=P-1 :IFP>0THEN5ELSEI 
RI=0TO13:SOUNDI.99-I*5: 
I¥2+3:Z=EXP(1 ) : NEXT: GOT 

PRINT"GAMEOVER" :FORI=0T 
) :NEXT:CLS:R=0:GOTO3 
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1 C0L0R1 , 10,10:SCRE 
41 ) :SPRITE$(0)= 
(1*24, 48)-(I*24, 144 
1*24) :NEXT:OPEN"GRP 

2 C=P*14+1 :E=24:F=1 
>V*:>" :PUTSPRITE0. (X 

3 S=STICK(P) :X=X+(S 
:Y=Y+(S=1ANDY>1 )-(S 
TRIG(P)=0ORA(Z)THEN 

4 F0RI=1T07:SWAPA(Z 
3:NEXT:A(Z)=C:F0RI= 
:A(I*6)=0:A(I*6+5)= 

5 F0RI=X-1T0X+1 :FOR 
:E=I*24:F=J«24:G0SU 

6 B(0)=0:B(1 )=0:FOR 
(I) :IFO0ANDC = A(I + J 
¥15)=B(C¥15)+1 

7 J=J-(J=1 )*3:NEXTJ 
*7:IFB(0)=0ANDC=8TH 

8 E=24:F=140:GOSUB1 
* 9 »"ELSEPRINT#1 , 

9 PLAY"C:FORI = 0TO1 

10 CIRCLECE+36.F+36 
C:PRESET(E+49,F+33) 



EN2,0:DEFINTA-Z:DIMA( 
:F0RI=2T06:LINE 
) :LINE(48.I*24)-(144» 
:"AS#1 :X=1 :Y=1 
30:GOSUB10:PRINT#1 ," J 
*24+32»Y*24+32) ,C 
=7ANDX>1 )-(S=3ANDX<4) 
=5ANDY<4) :Z=X+Y*6:IFS 
2ELSEPLAY"S0M900O4'' 
+ 1) ,A(Z-I) :I=I-(I=1)* 
0TO5:A(I)=0:A(I+30)=0 
0:NEXT:PLAY"L16F" 
J=Y-1T0Y+1 :C=A(I+J*6) 
B10:NEXTJ,I:PLAY"CD" 
I=7T026:F0RJ=1T07:C=A 
)ANDC=A(I+J+J)THENB(C 

,I:C=8-SGN(B(0)-B(1 ) ) 
ENP=(P+1 )M0D2:G0T02 
0:IFC=8THENPRINT#1 >"t 
"J »*! !":PLAY"EBAF" 
:I=-STRIG(0) :NEXT:RUN 
) ,4,C:PAINTSTEP(0>0) , 
:RETURN 
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ES3E532/2+ RAMBK 

BY Shaft -mi>fiW5B39^-yC*D*-r 




f 



X 



10 SCREEN 1 :KEY0FF:C0L0R15,1 .1 :WIDTH32:CL 
EAR2000 : DEFINTA-Z : U$ = "Z^Kz^K\i.^K" : DEFUSR = 
342:A=USR(0) : LINEINPUTAS : IFA$=""THENA$=N 
$ELSEIFLEN(A$) >23THENRUN O 

20 CLS:FORI=0TO7:PRINT !"; : C$( I ) =SPACE$ ( 
31) :F0RJ=1T0LEN(A$) : A=ASC (MID$ ( A$ , J , 1 ) ) : 
IFA=1THENJ=J+1 :A=ASC(MID$(A$»J ,1 ) )-64 £> 
30 C$(I)=C$(I)+RIGHT$("0000000"+BIN$(VPE 
EK(A*8+I) ) »"8) :NEXT:VPOKE384+I>0:VPOKE392 
+ 1 f 255 : NEXT -.VPOKE8203.1 06 :CLS: BEEP £) 
40 B$=STRING$(32,95) : L0CATE9 . 3 : PRINTNS : L 
OCATE0.5:PRINTB$:LOCATE0>16:PRINTB$:I=0 £) 
50 I=I+1+I*(I>=LEN(C$(1 ) ) ) :FORJ=0TO24STE 
P1 0:FORK = 0TO7: LOCATE J , K + 7 : PRINTMID$ (C$ ( K 
) ,I + J,11) :NEXTK,J:IFSTRIG(0)THENRUNELSE5 
O 



inlnlitWtZt 
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* 



m&omm 



A AJlizntzX.'^CD??.* 

?tf A^ttfct^ODSO-gffl) / 
USRMiSWmiJl/ffl 
AS A^trntX^U 

b$ ftoimmm 



C$(n) feSSmffl 

i, j, k >\s-ym 

N$ r r/u2'/u«Vi©X?: 



7D?^f? 



fl9fcsA£> I 



" ^ai^ 



cicDs israamai^ R vpoke8208, 1 1 6 

2ft"C5nC^Si5-eSKJg «40© 

3TC3-0 STRI NG$(32, 95) 

TCD'j;U-CD£-3Crj35£ £ 

M;m50££MU ft30£ STR I NG$(32, 1 2 

VPOKE8203, 106 8) 

£ CS£UT<£<*U 

35 FORI=0TO7:VPOKE392+I . VAL ( "&H" + MIDS ( "3 
C4281818181423C" . 1*2+1 .2) ) : NEXT : BEEP 
50 I=I+1+I*(I>=IEN(C$(1))) :A=(IMOD2)*(Il v 1 
0D4) :VPOKE8198.A*48:VPOKE8208.16*(4+A)+4 
: FORJ=0TO24STEP10 : FORK = 0TO7: LOCATE J .K + 7: 
PRINTMID$(C$(K)+" ". I + J. 11 ) :NEXTK. J:IFST 
PIG(B)THENRUNELSE50 



T/uc/utf/wcw^fcttA)* 

eSAtl«0iS(A*tfS;U7.K l J 
>^'©tSIJA$lcN$^tA, 
AfttfE3:£ ! ? ! £itS;*.fc££SPI 
AD) 

•iM^^oy^fi/j^A 
•A^tsntx^ycDA^-v 
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E23ES32/2+ RAM8K 

BY INSIDER -ad) 



WTDmO^-islZ&OS? 





T 



fnnniit^vtzt 



y 



U 



1 SCREEN1 ,1 : 
0FF:WIDTH32: 
COS ( Z ) : Y ( I ) = 
PRITEON:A$=C 
+ A$ + " <" :SP 

2 CLS:COLOR1 
1 :X=255:Y=96 

3 IFA=20THEN 

4 IFTIME>360 
B)*A,99+Y(B) 
A=A+10*(A>20 

5 IFJ=1THENA 

6 X=X-6:Y=Y+ 
2:BEEPELSEK= 

7 IFY<0ORY>1 

8 PUTSPRITE0 

9 SPRITEOFF: 
.1 :X=-1 :PUTS 

10 LOCATE3.0 
E:##";S;H:SP 

11 L0CATE9.5 
55V1503C. .": 
XT:GOTO 2 



rnmomm 



DIMXC36) ,Y(36) : DEFINTA-V: KEY 

FORI=0TO36:Z=I«3.14/18:X(I)= 

SIN(Z) :NEXT:0NSPRITEG0SUB9:S 

HR$(255) : SPRITES (1 )="<~~"+A$ 

RITE$(2)=A$+"~~<<~~"+A$ 

5.1,1 :PUTSPRITE2> (99.99) .15. 

:A=50:TIME=0:S=-1 :60SUB9 

B=(B+1-2*(STICK(0)=1 ) )M0D36 

0THEN11ELSEPUTSPRITE1 . (99+X( 

*A) .8.1 :G=STRIG(0) :IFJ=0THEN 

) : IFG=-1ANDA=20THENJ=1 :G0T06 

=A+15:IFA>100THENJ=0 

K:IFX<0THENX=200:Y=RND( 1)*19 

RNDC1 )*16~8 

92THENK=-K 

. (X.Y) , RND(1)*14+2,2:G0T03 

C0L0R,8,8:S=S+1 : BEEP : COLOR . 1 

PRITE0, (0,209) :IFH<STHENH=S 

:PRINTUSING"SCORE:## HI-SCOR 

RITEONrRETURN 

:PRINT"TIME OVER" : PLAY"L64T2 

FORI=0TO1 :I=-(5=STICK(0) ) :NE 
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-f#\ -<O r <*SA,jfe 

*A(7X4tSUJ:5fe<7)-C' 
to *-J*f^* < S3ffift 

fc<7)-Cf KttA^iJ 
ST*"\ Z.<F>f-lx<n 

LI To tUitzo 
•BY INSIDER 



YvRVSM 1 
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ft 
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r^i ES32/2+ 
BY GEN 



RAMBK 



-9Qj6TOtt40'^5>l;:&£)3:-r 
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>■ 



1 KEY0FF:DEFINTA-Z:C0L0R15,1 ,1 : SCREEN 1 ,0 
:WIDTH30:FORI=0TO6:READA:VPOKE8214+I,A:N 
EXT: FORI =0TO328 : VP0KE1 472+1 , 1 -254* (IM0D8 
= 0) :NEXT:SPRITE$(0)="<~3A^A.~<":Z = 6144:E$ 
=CHR$(27)+"Y":S0UND7,234:S0UND12,22 Q 

2 M=M+1 :PRINTSTRING$(22,"7")E$"#7SC0RE"E 
$"'7HIGH"E$"+7LEFT":F0RI=1T022:L0CATE,I: 
PRINT"?"SPC ( 20) "7": NEXT: FORI =1T06: LOCATE 

1 »M + 1: PR I NT-STRINGS (20 .232- 1*8) :NEXT:N = 60 O 

3 PRINTES" ) 6" H;E$" -6" ;2~L;E$"7' 77777777" 

; :ONSTRIGGOSUB10:P=1 :Q=-1 :X=5:Y=22 O 

4 F=VPEEK(Z+X+P+Y*32) : G=VPEEK ( Z+X+ ( Y+Q ) * 
32) :P=P*(1+(F>175)*2) : IFF >1 83THENL0CATE ( 
(X-P)¥2)*2-1 ,Y:PRINT" " : R = F¥8~22 : G0SUB9 Q 

5 Q=Q*(1+(G>175)*2) : IFG >1 83THENL0CATE ( X¥ 
2)*2-1 ,Y-Q:PRINT" " : R=G¥8-22 : G0SUB9 £) 

6 STRIG(0)ON:X=X+P:Y=Y+Q:PUTSPRITE0, (X*8 
,Y*8) >10:IFY<23THENSTRIG(0)STOP:GOTO4 Q 

7 PLAY"V12L16AFEDC2":L=L+1 :IFL<3THEN3 O 

8 PRINTE$"*&GAME OVER" : IFSTICK ( ) THENM=0 
:L=0:H=H-(S>H)*(S-H) : S=0 : G0T02ELSE8 Q 

9 S0UND6,R*5:S0UND9, 1 6 : SOUND 1 3 , : S = S + R : N 
=N-1 :PRINTE$"%6"S" " : IFNTHENRETURNELSE2 Q 

10 P=-P:RETURN:DATA238, 11 ,7,2,13,6,4 Q 
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AKDZVVhft 



G532/2+ VRAM128K 




10 COLOR 15.1 .1 rSCREEN : WIDTH40 : KEYOFF 

20 H=0:K=0:A=0:T=0:R=0:Q=0 

30 CLS:INPUT"* ,k HUt ,, ':>7'V£i;C";H 

40 IF H=<1 THEN 30 

50 PRINT"**-^ fe ,k :,7' k T*" ;H;"D" 

60 INPUT"?S-f **"-«, ;t>7,*";R 

70 IF H<R OR H=0 THEN 50 

80 K=R/H*100 

90 SCREEN 7:OPEN"GRP:"AS #1 

100 PSETC68.10) .0:PRINT#1 , "REDBALL" 

110 PSET(266,10) ,0:PRINT#1 ."WHITE BALL" 

120 CIRCLE(186,24) ,20,8 

130 CIRCLE(384, 24) ,20,15 

140 LINE(68,99)-(444,201 ) ,12,B 

150 LINE(69.200-K)-(84.200-K) .12 

160 LINE (428, 200 -K)- (443, 200-K) ,12 

170 FORI=0TO100 STEP 20 

180 PSET(32, 196-1) ,1 :PRINT #1 , USING"###X 

";I:NEXT I 

190 PAINT(186,24) ,8 

200 PAINT(384,24) ,15 

210 RN=RND(-TIME) 

220 Y=INT(RND(1 )#H)+1 



230 IF Y<=R THEN A=A+1 

240 T=T+1 :M=A/T*100:Q=Q+1 

250 PSET(68,40) ,1 :PRINT #1 , "RED^f % 9»-f7^ 

";A 

260 PSET(266,40) ,1 :PRINT #1 , "WHITEST*?*)-)" 

7>-) ";T-A 

270 PSET(168,74) ,1 :PRINT #1 , " M2' k ;/9J!H27 

";t 

280 pset(168,90) ,1 :print#1 , using" tiv^zsh, 

KO'IV ###.### %";k 
290 PSET(68,49) ,1 :PRINT #1 , USING"RED»' k 7 :,c> 
VTiyj ###.### X";M 

300 PSET(68, 62) ,1 .-PRINT #1 , "RED/**);**" ; R 
310 PSET(266,49) ,1 :PRINT #1 , USING"WHITE» 
,l T ,k 5?'7')?-f ###.### % ";100-M 

320 PSET(266,62) ,1 :PRINT #1 , "WHITER**" ; 
H-R 

330 PSET(Q+85,200-M) ,15 
340 IFSTRIG(0)=-1THENCLOSE:GOTO10 
350 IFQ>=342THEN360ELSE220 
360 LINE(85,100)-(427,200) ,1 ,BF:Q=0:GOTO 
220 
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5X12=6X10? 

E532/2+ VRAM128K 

BY Ministar ^mmVTjlZW^-zJlz&Dm? 




10 CLEAR 200>&HD000:DEFUSR=342:DEFINTA-Z 

: COLOR 15. 0,1 : KEYOFF : SCREEN5 : DIMP ( 87 . 1 ) ,Q 

(11.2) :A=RND(-TIME) : ONERRORGOTO430 

20 ONSTOPGOSUB440:STOPON:OPEN"GRP:"AS1 :P 

RESET(112,92) :PRINT#1 ,"i-oTZb" 

30 FORI = 0TO11 :Q(I.0)=(IMOD6+1 )*4:Q(I.1 ) = 

4-15*(I>5) :NEXT:FORJ=0TO1 : READAS : FORI=0T 

087: P( I, J)=VAL(MID$(A$.I+1 .1 ) ) : NEXT I. J 

40 SOUND0. 130: SOUND 1 . : S0UND7 . 1 90 : S0UND8 

.0:GOSUB230:FORI=0TO7:SETPAGE0.1-(I>5) 

50 B=IMOD6:READAS:FORJ=0TO31 :C=VAL ( "&H"+ 

MID$(A$. J+1 .1 ) ) :FORK=0TO3:X=(JAND7)*32+K 

*8:Y=B*32+(J¥8)*8:LINE(X.Y)-(X+7.Y+7) .15 

*SGN(CAND2 A (3-K) ) . BF : NEXTK . J . I 

60 FORI=0TO87:SETPAGE0,1-(P(I.1 ) >5) :X=P( 

1.0) *32 : Y= ( P ( I > 1 ) M0D6 ) *32 :LINE(X.Y)-(X+3 

1 .Y+31) . I ¥8+4. BF. AND: NEXT 

70 GOSUB260:SETPAGE0.0: LINE (112.92)- (151 

.99) >0.BF:ONKEYGOSUB240,230:KEY(1 )0N 

80 FOR I = 0TO7: LINE (1+80. 1+72) -(175-1. 135- 

I) >RND(1 )*2+2>B:NEXT:FORM=0TO11 :GOSUB250 

:NEXT:KEY(2)ON:M=0 

90 0=0: FORI =0TO11 :O=O-(Q(I.0)>10ANDQ(I.0 

)<21ANDQ(I.1) >9ANDQ(I.1)<16) :NEXT 

100 FORI=0TO1 :GOSUB250:FORJ=0TO30:NEXTJ. 

I:GOSUB260:A$ = "t*A.&<t-l^t)'-Vlb-:a'N o -7,-S-F1 -F 

2 ":GOSUB290 

110 S=STICK(0) :T=STRIG(0) :A$ = " ":MID$(A$ 

.1.1 )=INKEY$:IFINSTR("Ss",A$)THEN360 

120 IF(SAND1 )-T=0THEN110ELSEM=(M+(S=1ORS 

=7)-(S=3ORS=5)+12)MOD12:IFNOTTTHEN100ELS 

EFORI=0TO5:GOSUB250:FORJ=0TO50:NEXTJ.I:G 

OSUB260:SOUND0.160 

130 O=O+(X>10ANDX<21ANDY>9ANDY<16) :A$="U 

t ,^ '^f-^*a-ylb■^^ '-7■Z•X•C•F1 •F2":GOSUB290 

140 S=STICK(0) :T=STRIG(0) :A$=" ":MID$(A$ 

.1.1 )=INKEY$:IFSTHENSOUND8.15:GOSUB210:X 

=(X+(S>5)-(S>1ANDS<5)+17)M0D21+4:Y=(Y+(S 

=80RS=10RS=2)-(S>3ANDS<7)+12)M0D16+4:G0S 

UB210:SOUND8.0 

150 IFINSTR("Cc".A$)THENGOSUB210:GOSUB25 

0:SOUND0,130:GOTO190 

160 IFINSTR("Xx".A$)THENS0UND8.15:G0SUB2 

10:N=N+4AND7:GOSUB210:SOUND8.0 

170 IFINSTR("Zz".A$)THENS0UND8.15:G0SUB2 

10:N=(NAND4)+(N+1AND3) : G0SUB21 : S0UND8 . 

180 IFNOTTTHEN140ELSEF=0:FORI=0TO4:FORJ= 

0TO4-I:F=F-(POINT((J+X)*8> ( I+Y ) *8) =M+4) : 

NEXTJ.I:IFFO5THEN280ELSEa(M.0)=X:Q(M,1) 

=Y:Q(M.2)=N:SOUND0>130 

190 O=O-(X>10ANDX<21ANDY>9ANDY<16) :IF0<1 

2ORINSTR("CcVf".A$)THEN100ELSEFORI=0TO10 

:SOUND0.65:GOSUB260:SOUND0.130:GOSUB260: 

NEXT 

200 IFPEEK(&HFBEC)AND4THEN200ELSEGOSUB23 

0:FORI=0TO11 :Q(I.0)=(IMOD6+1)*4:Q(I.1 )=4 

-15*(I>5) :NEXT:CLS:GOTO70 



210 IFM<11THENU=P(M*8+N>0)*32:V=P(M*8+N> 

1) :W=V>5:V=(VM0D6)*32:C0PY(U.V)-(U+31 .V+ 

31 ) >1-WT0(X*8.Y*8) . . XOR: RETURN 

220 IFNAND1THENLINE(X*8.Y*8)-(X*8+7.Y#8+ 

39) . 15.BF.X0R:RETURNELSELINE(X*8.Y*8)-(X 

*8+39.Y*8+7) . 1 5. BF. XOR: RETURN 

230 KEY(1)STOP:FORQ = 0TO2:FORP = 0TO11 :P0KE 

Q*12+P-1 2288.0 (P.Q) : NEXTP . Q : KEY ( 1 ) ON: GOT 

0260 

240 KEY(2)STOP:FORQ=0TO2:FORP=0TO11 :Q(P. 

Q)=PEEK(Q*12+P-12288) : NEXTP ,Q : GOSUB260 : C 

LS:RETURN80 

250 X=Q(M.0) :Y=Q(M.1 ) :N=Q(M.2) :GOTO210 

260 SOUND8.15:FORQ=0TO75:NEXT:SOUND8.0 

270 RETURN 

280 S0UND1 .1 :FORI=0TO4:GOSUB260:FORJ=0TO 

75:NEXTJ.I:S0UND1 ,0:GOTO140 

290 A=USR(0) : PRESET (16.8) :PRINT#1 . LEFTS ( 

A$.8) : PRESET (40. 20) :PRINT#1 . MIDS ( AS . 9 ) : R 

ETURN 

300 DATA0 12345670 12345670 12345670 1234567 

0123456701231032456747650123321045456767 

0123210344444444 

310 DATA00000 0001 1 1111 1 12222222233333333 

4444444455555555555555556666666666666666 

7777777777777777 

320 DATAF48C18FC14F8F884040808040C080C04 

.E4C43878347CE8CC0C080C0408080404 

330 DATAF44828F424FCF84C0C080C0404080804 

.CCE4EC68EC6CCCEC080C040C000000 00 

340 DATAC24448646ECE6ECE4468C44200000000 

.C286CECA66CC8A4E2C68C0C000 000 000 

350 DATAEE28C26882284E4E82EE68C200000000 

.E24840004E4EE00042E8400000000 00 

360 'LOAD & SAVE (DISK) 

370 CL0SE:SCREEN1 : OPEN"PUZZLE . DAT" AS#1 LE 

N=36:FIELD#1 , 36ASAS : E=LOF ( 1 ) ¥36 : PRINT"t- 

7*»A.? ; p"E:B = -1 :INPUT"D-h' , 'tt*A.;:*M0:t-7 ,N )=" 

;B:IF B=0THEN390ELSEIFB<1ORB>ETHENPRINT" 

SCt L&)H£":GOTO420 

380 GET#1 . B:B$ = A$:FORJ=0TO2:FORI = 0TO11 :P 

0KEJ*12+I-12288.ASC(MID$(B$> J*1 2+1+1 ) )-6 

4:NEXTI,J:PRINTB"t n-h*Lfe" : GOTO420 

390 B$="":FORJ=0TO2:FORI=0TO11 :B$=B$+CHR 

$( PEEK (J*1 2+1 -12288) +64) :NEXTI.J 

400 F=0:IFE>0THENFORI=1TOE:GET#1 ,I:F=F-( 

A$=B$) :NEXT 

410 IFF = 0THENLSETA$ = B$:PUT#1 .E + 1 :PRINTE + 

1"C t-7*Lfe"ELSEPRINT , 't7 ,x l: t-7*L7Ji5" 

420 CL0SE:PRINT"8G# *-S »L-7h" : B$=INPUT$ ( 

1) :0PEN"GRP:"AS1 : SCREEN5 : GOTO80 

430 A = USR(0) : PRINT" f*i-7.r>t OHT 8C# \-t «L 

7to": PRINT" (fcWLtt ESC*- )": B$= INPUTS ( 1 ) :IF 

B$=CHR$(27)THENRESUME420ELSERESUME370 

440 CLOSE :STOPOFF :ONERRORGOTO0 : END 
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K>h 



*hw:7 



DCN'T STOP 



irea ES32/2+ 
BY Taka 



RAM16K 



-"mmUTjlZM^-islz&VZ? 




10 SCREEN! >2.0:KEYOFF:WIDTH32:DIMMP$(9) . 
MS (6) >N$(6) .X(3) .Y(3) : BT=3600 : BS= 1 :R$="T 
150S8M5000L8O4GG.DFF.D":FORI=312TO728:VP 
OKEI.VPEEK(I)ORVPEEK(I)/2:NEXT:GOSUB200 
20 COLOR 1 5. 0.0:CLS: LOCATE 11 . 6 : PR I NT" DON ' 
T STOP":LOCATE8.10:PRINTUSING"BEST STAGE 
##";BS:LOCATE8.13:PRINTUSING"BEST TIME 
##'##";BT/60;BTMOD60:ST=1 :FORI=0TO1 :FO 
RJ=0TO2:PUTSPRITEJ. (RNDd )*240.RND(1 )*17 
6) .RNDd )*14+2.0:I=-STRIG(0)OR-STRIG(1 ) : 
NEXTJ.I 
30 J=RND(-1 ) 

40 COLORU.12.12:CLS-PUTSPRITE0. (0.208) : 
FORI=0TO9:MP$(I)="":NEXT:CX=224:CY=16:BX 
=230:BY=16:SX=1 :SY=9:H=0:V=1 
50 FORI=0TO9:FORJ=0TO13:MP$(I)=MP$(I)+RI 
GHT$(STR$(INT(RND(1)*4) ) .1 ) : NEXT J . I : FORI 
=0TOST*3:MID$(MP$(SY) > SX ) ="4" : SX=INT ( RND 
(1 )*12+2) :SY= INT (RNDd )*10) :NEXT 
60 LOCATE2.0:PRINT"STAGE";ST:FORI=0TO9:F 
0RJ=1T014:P=VAL(MID$(MP$(I) . J.1 ) ) : LOCATE 
J*2. 1*2+2 :PRINTM$(P)+CHR$(&H1F)+CHR$(&H1 
D)+CHR$(&H1D)+N$(P) : NEXT J. I: PUTS PR I TE2. ( 
16.159) .4.1 

70 ONINTERVAL=3600GOSUB150:TIME=0:INTERV 
ALON 

80 PUTSPRITE0. (BX.BY-1) . 7 , : PUTSPRITE1 . ( 
CX.CY-1 ) .8.1 :IFBXMOD240=0ORBYMOD176=0THE 
NH = 1 :GOTO150ELSEIFBX = 16ANDBY = 160THE,N160 
90 IFPLAYd )=0THENPLAYRS+"GGGDFR" 
100 S=STICK(0)ORSTICK(1 ) : IFSTHENCX=CX+ (S 
=7ANDCX>16)*16-(S=3ANDCX<209)*16:CY=CY+( 
S=1ANDCY>16)*16-(S=5ANDCY<159)*16 
110 IFSTRIG(0)ORSTRIG(1 ) THENK = 2 : GOSUB1 40 
ELSEIFSTRIG(3)OR(PEEK(&HFBEB)AND4)=0THEN 
K=1 :GOSUB140 

120 IF(BXMOD16=0ANDABS(X(V))=1 )OR(BYMOD1 
6=0ANDABS(Y(V) )=1 ) THENV = VAL (MIDS (MPS ( BY/ 
8/2-1 ) .BX/8/2.1 ) ) :IFV>3THENH=1 :GOTO150 
130 BX=BX+X(V) :BY=BY+Y(V) :GOTO80 
140 LX=CX/8/2:LY=CY/8/2-1 : P=VAL ( MI D$ (MPS 
(LY) .LX.1 ))XORK:MID$(MP$(LY) .LX.1 )=RIGHT 
$(STR$(P) ,1) :L0CATELX*2.LY*2+2:PRINTM$(P 
)+CHR$(&H1F)+CHR$(&H1D)+CHR$(&H1D)+N$(P) 
:RETURN 



150 INTERVALOFF:PLAY"V1501C2" :LOCATE13.0 
:PRINTH$(H) :GOSUB190:IFBS<STTHENLOCATE15 
.1:PRINT"YOUR BEST STAGE" : PLAY" V1 507L32C 
R32C":BS=ST:GOSUB190:GOTO20ELSE20 
160 INTERVALOFF:T=TIME:LOCATE5.1 :PRINT"C 
LEAR! !" :PLAYR$+"FFGAA+" : GOSUB1 90 : IFBT>TT 
HENBT=T:PLAY"V1507L32CR32C":H=2ELSEH=3 
170 LOCATE16.0:PRINTH$(H) :L0CATE25.1 :PRI 
NTUSING"##'##";T/60;TMOD60:ST=ST+1 : IFST> 
20THEN180ELSEGOSUB190:GOTO40 
180 L0CATE9.9:PRINTSPC(17) : L0CATE9 . 1 : PR 
INT" ALL CLEAR!! ": L0CATE9 . 1 1 : PRINTS 
PC(17) :L0CATE9.12:PRINT" YOU ARE GREAT!! 
":L0CATE9.13:PRINTSPC(17) : : PLAYR$+"FFGA 
A+":FORI=0TO1 :I=-STRIG(0)OR-STRIG(1) :NEX 
T:GOTO20 

190 FORI=0TO3000:NEXT:RETURN 
200 FORI =0TO3 : RE ADA . B . AS . B$ . C$ . D$ : X ( I ) = A 
:Y(I)=B:M$(I) =A$ : N$ ( I ) =B$ : H$ ( I ) =C$ : FORJ= 
0TO32:VPOKE776+I*32+J.VAL("&H"+MID$(D$>J 
*2 + 1 .2) ) :NEXTJ.I 

210 FORI=0TO63:VPOKE14336+I.VAL("&H"+MID 
$("030C1 0234448808090904040201 00C03C0300 
884020201 01 01 01 0202040830C0FFE0E08080808 
0808080808080E0E0FFFF0707010101010101010 
101 01 0707FF". 1*2+1 .2) ) :NEXT: RETURN 
220 DATA0.-1 .ab.cd.TIME UP . FF80'81 83878F9 
FBFFF0181C1E1F1F9FD8F8F8F8F8F8F80FFF1F1F 
1F1F1F101FF.-1 . B.ef .gh.OUT S IDE . FF8081 83 
878F9FBFFF010101FDFDFDFDBF9F8F87838180FF 
FDFDFDFD010101FF 

230 DATA0.1 . i j .kl.YOUR BEST TIME.FF808F8 
F8F8F8F8FFF01F1F1F1F1F1F1BF9F8F87838180F 
FFDF9F1E1C18101FF.1 . . mn . op . YOUR TIME.FF 
808080BFBFBFBFFF0181C1E1F1F9FDBFBFBFBF80 
8080FFFDF9F1E1C18101FF 
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PRETTY POINTS 

CS32/2+ VRAM64K 

BY RIN ''mmVTDteM^-VlZ&DSt 




1 0NERR0RG0T01 70 : 0NST0PG0SUB1 80 : STOPON 

20 COLOR15.0.0:SCREEN5:FORI=0TO1 :SETPAGE 

0.I:CLS:NEXT:SETPAGE0.0:DEFUSR=342 

30 SCREEN0:WIDTH40:COLOR15.5:KEYOFF:DEFI 

NTA-Z : LOCATE1 2 . 1 : PRINT"? 1 }* : t-Vhl 1 or2]" : 

Z = USR(0) : LOCATE 12. 11 : A=VAL ( INPUTS ( 1 ) ) :IF 

A<1ORA>2THEN30ELSE60 

40 COPY (0,0)- (255.211) .0TO(0.0).1 :A$="": 

INPUT'CSAVED FILE NAMEtt" ; AS : SCREEN5 : SETP 

AGE1 .1 :BSAVE AS+" .DAT" , .&H69FF , S :GOTO60 

50 A$="":INPUT"CLOADD FILE NAMEtt" ; A$ : SCR 

EEN5:SETPAGE1 ,1 :BLOAD A$+" . DAT" .S :GOTO60 

60 COLOR15.0.0:SC.REEN5.1 : SPRITES ( ) =CHR$ 

(255)+"fe*'7Li;**":SETPAGE1 .1 : FORI=1T015 :CO 

LOR=(I,7.7.7) :NEXT:X=0:M=X:Y=0:N=Y:SETPA 

GE0.0:COPY(0.0)-(255.211),1TO(0.0) 

70 ON A GOSUB 120 . 130 : PUTSPRITE0 . ( X , Y) . 5 

.0:IF STRIG(0)OSTRIG(1 )THEN LINE(X.Y)-( 

M.N) .K+1 :K=(K+16)MOD15 

80 M=X:N=Y:IF STRIG(3) OR ( PEEK ( &HFBEC) A 

ND4)=0 THEN GOSUB100 



90 Z$=INKEY$:IFZ$=""ORINSTR("CLScls".Z$) 

=0THEN GOTO70 ELSE ONINSTR ( "SLs L" . Z$) GOT 

O40.50.40,50:CLS:GOTO70 

100 COPY(0.0)- (255.211 ) .0TO(0,0) .1 :K=0:S 

ETPAGE0.0:PUTSPRITE0. (0.217) 

110 K=(K+16)M0D15:C0L0R=(K+1 .7.4.7) :COLO 

R=( K+1 .0.0.0) :IFSTRIG(3)0R(PEEK(&HFBEC)A 

ND4)=0THENFORI=1TO15:COLOR=(I.7.7.7) :NEX 

T:GOTO70 ELSE110 

120 P=PAD(12) :X=X+PAD(13) :Y=Y+PAD(14) :GO 

TO140 

130 S=STICK(0) :V=V+(S>1ANDS<5)*(V<6)-(S> 

5ANDS<9)*(V>-6) : W=W+ (S >3ANDS<7) * ( W<6) - ( S 

=10RS=20RS=8)*(W>-6) :X=X+V:Y=Y+W 

140 IFX>254THENX=254ELSEIFX<0THENX=0 

150 IFY>210THENY=210ELSEIFY<0THENY=0 

160 RETURN 

170 IF ERR=56 THENRESUME60 

180 ONERRORGOTO0 
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10> 46 

50> 4 

90> 20 

130>219 

170>244 



20> 9 
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1 e • o«o»o«o«o«o»o«o«o»o»o»o«o»o»o«o»o«o 

20 '• C0UNT3 * 1989/2/12 * By Tetsuji • 
3 ' o»o»o«o»o«o«o»o»o«o»o»o»o«o«o«o»o«o 

40 ■••••• VISUAL SETTING ••••• 

50 C0L0R15.1 .1 :KEY0FF:SCREEN1 .2.0:WIDTH3 

2:DEFINTA-Z:A=RND(-TIME) :DIMW$(14) :DEFFN 

A=-CB*(Q=CA)-(Q=CB)*CA 

60 '••••• SETTING ••••• 

70 L0CATE13.11 : PRINT"WAIT ! ! " : F0RI=256T07 

51:VPOKEI.VPEEK(I)ORVPEEK(I)/2:NEXT 

80 FORI=0TO11 :READW$(I) :NEXT 

90 FORI=0TO3:READA.B$:FORJ=0TO31 :VPOKEA+ 

J,VAL(**&H"+MID$(B$>J*2 + 1 .2) ) : NEXT J. I 

100 VPOKE8195.129:FORI=0TO15:READA:VPOKE 

8204+1. A:NEXT 

110 FORI=0TO53:I=I-(I=8) : A$="" : READBS : FO 

RJ=0TO31 :A$=A$+CHR$(VAL("&H' , +MID$(B$>J*2 

+1.2))) :NEXT:SPRITE$(I)=A$:NEXT 

120 '••••• MAIN ••••• 

130 GOSUB990:GOSUB910:R=11 : PLAVS0M5000T 

255L4CDEDEFEFGFGAEEFFEC":FORI=0TO1 :I=(ST 

RIG(0)+STRIG(1))*(PLAY(0)=0) :A=RND(1)*5: 

NEXT 

140 VDP(1)=226:X=48:Y=111:XX=197:YY=55:C 

A=15:CB=3:CC=7:PA=100:PB=100:T=(11-R)*10 

+100:WA=0:W$(12)="UNOKI":W$(13)="TIGER": 

GOSUB1010:PLAY"S0M5000T255L8O5V15DV14DV1 

3DV12DV1 1DV1 1DV10DV9DV8DV7DV6DV5D" : FORI= 

0TO900:NEXT 

150 A=-(T>35) :ONAGOTO160:ZZ=-(T>20)*2+2: 

XX=XX-(XX<195)#ZZ:YY=YY+(YY>59)*ZZ:G0T02 

00 

160 E=E+1 :ON-(E<23)GOTO170:CB=8:ZZ=6:GOT 

0180 

170 ZZ=-(T>25)*2+2 

180 XX=XX+(X<XX)*ZZ-(X>XX)*ZZ 

190 YY=YY+(Y<YY)*ZZ-(Y>YY)*ZZ 

200 A=RND(1)*R:ONAGOTO210:GOTO220 

210 L=-(L=0) 

220 A=RND(1 )*9:ONAGOTO230:GOTO240 

230 H1=-(H1=0) 

240 A=RND(1 )#9:ONAGOTO250:GOTO260 

250 L1=-(L1=0) 

260 A=-(( ((PEEK(&HFBEB)AND4)=0ORSTRIG(3) 

) )ANDX<43ANDY>104ANDY<120)-(T<41ANDXX>19 

4ANDYY< 60 ) *2 : ONAGOTO270 . 280 : GOTO290 

270 P=4:X1=34:Y1=111 :S=1 0- (CA=1 )*5 : U=9: 

V=300:GOSUB960:X1=42:U=10:GOSUB960:X1=42 

•U=0:GOSUB960:P=2:S=CA:U=10:GOSUB960:X1= 

34:U=9:GOSUB960:X1=26:U=0:GOSUB960:CA=10 

-(CA=10)*5:SWAPPA.PB:SWAPW$(12) .W$(13) :X 

=42:Y=111 :GOSUB1040:GOTO290 

280 P=5:X1=207:Y1=55:S=CC:U=10:V=300:GOS 

UB960:X1=202:U=9:GOSUB960:X1=197:U=4:GOS 

UB960:P=3:S=CB:U=9:GOSUB960:X1=202:U=10: 

GOSUB960:X1=207:U=4:GOSUB960:SWAPCB.CC:T 

=(11-R)#10+100:XX=197:YY=55 

290 Z=-(PA>20)«2+2:ST=STICK(0)ORSTICK(1) 



300 IFSTTHENX=X+(ST>5)*(ST<9)H(X>42)*Z-( 
ST>1)*(ST<5)*(X<197)*Z ELSE320 
310 Y=Y-( (ST<3)+(ST=8) ) * ( Y >52 ) *Z- (ST >3)* 
(ST<7)*(Y<123)*Z 

320 H=-(STRIG(0)ORSTRIG(1 ) ) : MA=- ( X >XX ) : K 
=-(K=0) :MB=-(MA=0) 

330 H2=H2+1 :A=-(H2=3) :ONAGOTO340 :GOTO350 
340 PB=PB-(PB<100) :H2=0:LOCATE22,20:PRIN 
TUSING"###";PB 

350 PUTSPRITE2. (X.Y) . CA . MA*4+H*2+K 
360 PUTSPRITE3. (XX. YY) ,CB . MB*4+L*2+K 
370 PUTSPRITE4, (26.111 ) , 1 0- (CA=1 )*5 . H1 * 
2 + 1 

380 PUTSPRITE5. (212.55) ,CC.L 1*2+5 
390 A=-(XX-8<XANDXX+8>XANDYY-3<YANDYY+3> 
Y) :ONAGOTO400:GOTO150 

400 A=(X>XX)-(X<=XX) :XX=X+A*6:PUTSPRITE3 
. (XX. YY) .CB.MB*4 + L*2+K 

410 IFH=L0RCB=8THEN0=RND(1 ) *1 2 : CB=3- ( CC= 
3)*4:Q=CB:FORI=0TO500:NEXTI:GOTO480 
420 '••••• WAZA i^t* ••••• 
430 O=0:Q=CA 

440 LOCATE9.10:PRINT W$(0) 
450 IFSTRIG(0)ORSTRIG(1 )THENA=A+1 :ON-(A> 
150)GOTO880:GOTO450 

460 IFSTRIG(0)ORSTRIG(1 )THEN0=0+1 :0=0+(0 
=12)*12ELSEIF(PEEK(&HFBEB)AND4)=0ORSTRIG 
(3)THEN480ELSEA=A+1 : ON- ( A>1 50 ) GOTO880 : GO 
TO460 
470 GOTO 440 

GOSUB930:GOSUB920: 
LOCATE 10.7:PRINT 

10,8:PRINT 

10.9:PRINT 

9.10:PRINT 

10.11 :PRINT 

10.12-.PRINT 

10.13-.PRINT 

10.14:PRINT 

10.15:PRINT- 

10.16:PRINT 

10,17:PRINT 
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490 
500 
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530 
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550 
560 
570 
580 
590 
600 
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ONOGOTO630 . 640 . 650 . 660 > 670 . 680 . 690 . 7 



610 

620 

1 = 1 

970 

S = 

630 

1=1: 

970: 

EXTI 



'••••• WAZA ••••• 

FORI = 0TO3:P = 0:X1=56:Y1=48:S=Q:U=11 :P 

X2=56:Y2=48:S1=FNA:U1=12:V=400:GOSUB 

U = 13:U1 = 14:GOSUB970:NEXTI:P=5:X1=-1 : 

GOSUB940:GOTO750 

FORI=0TO3:P=0:X1=52;Y1=48:S=Q:U=15:P 

X2=60:Y2=48:S1=FNA:U1=16:V=300:GOSUB 

U=17:V=150:GOSUB970: U1=18:GOSUB970:N 

P=0:X1=-2:S=10:GOSUB940:GOTO750 



640 FORI=0TO3:P=0:X1=52:Y1=48:S=Q:U=19:P 
1=1 :X2=60:Y2=48:S1=FNA:U1=16:V=300:GOSUB 
970:U=20:V=150:GOSUB970:U1=18:GOSUB970:N 
EXTI:P=0:X1=-3:S=10:GOSUB940:GOTO750 



-X 



< 
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650 P=0:X1=49:Y1=48:S=Q:U=21 :P1=1 :X2=61 

Y2=48:S1=FNA:U1=16:V=500:GOSUB970:X1=50 

U=22:U1=16:GOSUB970:X1=51 : U=23 :GOSUB970 

U1=18:V=900:GOSUB970:X1=49:U*24:U1=25:GO 

SUB970:P=-1 :X1=-5:S=8:GOSUB940:GOTO750 

660 P=0:X1=58:Y1=48:S=Q:U=26:P1=1 :X2=65: 

Y2=48:S1=FNA:U1=16:V=900:GOSUB970:U=27:X 

2=50 : U1 =28 : V=400 : GOSUB970 : X2=48 : U1 =25 : V= 

1200:GOSUB970:P=-1 :X1=-5 :S=12:GOSUB940 :G 

OTO750 

670 P=0:X1=52:Y1=48:S=Q:U=21 :P1=1 :X2=61 : 

Y2=48:S1=FNA:U1=16:V=500:GOSUB970:X1=53: 

Y1=47:U=29:GOSUB970:X1=54:Y1=46:U=30:V=1 

50:GOSUB970:U1=18:GOSUB970:X2=64:U1=25:V 

=400:GOSUB970:X1=52:Y1=48:U=15:V=600:GOS 

UB970:P=-1 :X1=-7:S=7:GOSUB940:GOTO750 

680 P=1 :X1=52:Y1=48:S=Q:U=21:P1=0:X2=61: 

Y2=48:S1=FNA:U1=16:V=500:GOSUB970:X1=53: 

Y1=47:U=22:GOSUB970:X1=54:Y1=45:U=31 :V=1 

50:GOSUB970:U1=21 : V=800 :GOSUB970 :X1 =52: Y 

1=48:U=24:U1=25:GOSUB970:P=-2:X1=-9:S=6: 

GOSUB940:GOTO750 

690 P=0:X1=52:Y1=48:S=Q:U=32:P1=1 :X2=61 : 

Y2=52:S1=FNA:U1=33:V=500:GOSUB970:X2=58: 

Y2 = 51 :U1=34:GOSUB970:X2=56:Y2 = 46:U1=21 :V 

=600:GOSUB970:X2=61 : Y2=48: U1 =25 :GOSUB970 

:P=0:X1=-10:S=5:GOSUB940:GOTO750 

700 IFWA<20ANDFNA<8THEN880ELSEP=0:X1=52: 

Y1=48:S=Q:U=26:P1=1 : X2=59 : Y2=48: S1 =FNA: U 

1=16:V=700:GOSUB970:P=1 : P1 =0 : U=35 : X2=50 : 

Y2=45 : U1 =28 : GOSUB970 : P=0 : P1 =1 : U=36 : Y2=48 

:U1=37:V=1000:GOSUB970:P=-1 :X1=-15:S=-10 

:GOSUB940:GOTO750 

710 IFWA<30ANDFNA<8THEN880ELSEP=0:X1=52: 

Y1=48:S=Q:U=9:P1=1 :X2=59: Y2=48 : S1 =FNA : U1 

=38:V=900:GOSUB970:U=39:X2=49:Y2=46:U1=2 

8:GOSUB970:U=40:X2=52:Y2=48:U1=41 :G0SUB9 

70:P=-3:X1=-20:S=-15:GOSUB940:GOTO750 

720 IFWA<40ANDFNA<8THEN880ELSEP=0:X1=63: 

Y1=48:S=Q:U=42:P1=1 :X2=73 : Y2=48: S1 =FNA : U 

1=43:V=900:GOSUB970:U=44:X2=58:Y2=36:U1= 

28:GOSUB970:U=24:X1=57:X2=45:Y2=48:U1=25 

:GOSUB970:P=-5:X1=-27:S=-20:GOSUB940:GOT 

0750 

730 IFWA<50ANDFNA<8THEN880ELSEP=0:X1=61 : 

Y1=48:S=Q:U=45:P1=1 : X2=68 : Y2=48:S1 =FNA: U 

1=9:V=900:GOSUB970:U=46:X2=59:Y2=45:U1=4 

7:GOSUB970:U=24-((PA<33ANDQ<8)OR(T<33AND 

Q>9) )»24:X1=58:X2=51 : Y2=48 : U1 =49:G0SUB97 

0:P=-7:X1=-32:S=-25:GOSUB940:GOTO750 

740 '••••• COUNT ••••• 

750 P = 0;A=-( (PA>0ANDQ<8)OR(T>0ANDQ>9) )-( 

( (PA=0ANDQ<8)OR(T<1ANDQ>9))ANDO=11 )*2:0N 

AGOTO880.770 

760 P=1 :X1=55:Y1=48:S=Q:U=21:P1=0:X2=55: 

Y2=48:S1=FNA:U1=25:V=600:GOSUB970:P=0:P1 

=1 :U=35:Y1=44:GOSUB970:U=50:V=300:GOSUB9 

70:Y1=48:GOSUB970:P=0 

770 PLAY"S0M500V15DV13D":FORI=0TO10:FORJ 

=2T015:PUTSPRITE2. (110,60) , J . 51 +P:NEXTJ . 

I:IFP=2THEN820 

780 A=RND(1 )*5:IFA>0THENP=P+1 :GOTO770 

790 A=-(0=11 ) :ONAGOTO800:P=0:X1=60:Y1=44 

: Y2=47 : V=300 : GOSUB970 : X1 =65 : Y1 =48 : Y2 = 48 : 

V=1200:GOSUB970:IFO>9THENT=10:GOTO880:EL 
SEPA=10:GOTO880 



800 P=0:X1=58:S=Q:U=24:U1=24:V=900:GOSUB 
970:IFQ>9THENT=10:GOTO880ELSEPA=10:GOTO8 



810 '••••• WIN? « 
820 GOSUB920:FORI=0TO5:P=0:X1=55:Y1=48:S 
=0:U=21 :P1=1 :X2=55:Y2=48:U1=25:V=500:GOS 
UB970:U=35:V=500:GOSUB970:NEXTI:GOSUB910 
:GOSUB930:CLS 

830 IFR = 2ANDQ>9THENLOCATE10,10:PRINT"i> C 
HAMPION! ! k":PLAY"S0M5000T255L8CDEFCDEFC 
DEFGGR16FGR16FGGG" :GOTO860 
840 IFQ>9THENLOCATE12.10:PRINT"-NEXT! !-" 
:F0RJ = 11T0 RSTEP-1 : LOCATE 1 1 -R + J . 12 : PRINT 
"i>":NEXT:PLAY"S0M5000T255L8DDR16EEEEEDDR 
16DDR16EEEEEDDR16CDR16CDCD":FORJ=0TO4000 
:NEXTJ:R=R-1 :GOTO140 

850 L0CATE14. 1 : PRINT" -END-" : PLAY" S0M500 
0T255L4GFEDGFEDGFEDCDC" 

860 FORJ=-1TO0:J=PLAY(0) : NEXT : L0CATE1 2. 1 
6: PR INT" -HIT SPC-":FORJ = 0TO1 : J = -(STRIG(0 
)0RSTRIG(1 )) :NEXT:GOTO130 
870 '••••• MAIN %**y Z 2II ••••• 
880 GOSUB930 

890 VDPC1 )=226:X=X-(X>XXANDX<185)*12+(X< 
=XXANDX>54)#12:XX=XX-(XX>=XANDXX<185)*12 
+(XX<XANDXX>54)*12:E=0:YY=Y:GOSUB1010:GO 
SUB1040:GOSUB910:IFO=4THENSWAPX,XX:SWAPM 
A,MB:GOTO350ELSE350 
900 '#•••• SUB ••••• 

910 FORJ=0TO13:SOUNDJ,VAL(MID$("00000000 
0000 0042150016006400", J*2+1 ,2) ) :NEXT : RET 
URN 

920 FORJ=0TO13:SOUNDJ,VAL(MID$("00000000 
00003114001616007014" . J*2+1 , 2 ) ) : NEXT : RET 
URN 

930 FORJ=0TO5:PUTSPRITEJ, (0,209) :NEXT:RE 
TURN 

940 IFQ=10ORQ=15THENPA=PA+P:T=T+X1 :WA=WA 
+S:PA=PA+(PA>100)*(PA-100) :WA=WA+(WA>100 
) * ( WA- 100): PA = PA+ ( PA< ) *PA : RETURN 
950 PA=PA+X1 :T=T+P:PA=PA+(PA<0)*PA:RETUR 
N 

960 PUTSPRITEP, (X1 ,Y1 ) ,S,U:GOTO980 
970 PUTSPRITEP, (X1*2,Y1*2) , S > U : PUTSPRITE 
PI , (X2*2,Y2*2) ,S1 ,U1 
980 FORJ=0TOV+100:NEXTJ:RETURN 
990 CLS:A$=" ttt ":B$=" • »":C$=" • 
":PRINTA$+A$+B$" "B$" ttiit "B$+B$+B$ 
•• "B$" "C$" "B$+B$" • «"B$" "C$" "B 
$+B$" • «"B$" "B$+B$+B$" • ««"C$+A$ 
+A$+A$" "B$+C$ 

1000 FORI=0TO6:LOCATE12,8+I:PRINTMID$(" 
bbbb bb b bbbbbb" , ABS ( 1-3) 
#8+1,8) : NEXT: LOCATE 11 , 1 7 : PRINT" -HIT CSPC 
]-":L0CATE21 .21 :PRINT"BY TETSUJI" : RETURN 
1010 CLS:A$="c":B$="o":FORI=0TO2:FORJ=0T 
015: PRINTA$ + B$ ; : NEXT : SWAPAS , B$ : NEXT : PR IN 
TSTRING$(32,112)SPC( 12) "ROUND" 12-R 
1020 L0CATE5, 6: PRINT" m" STRINGS (20,1 69 )"m 
"SPC(10)"n"STRING$(20,170)"n":FORI=0TO7: 
LOCATE5.8+I:PRINT"«"+STRING$(20,98)+"*": 
NEXT:A$ = " 1," 

1030 PRINTSPC(5)"'"STRING$(20.134)"*"SPC 
(10)"a"STRING$(20,135)"a"SPC(10)STRING$( 
22,172) :FORI = 0TO1 : PRINTA$A$"i> "A$"i»"A$SP 
C(5) ; :NEXT:PRINTSPC(5)STRING$(22,172) :L0 
CATE15,19:PRINT"*X":LOCATE18,20:PRINT"X" 
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1040 L0CATE6. 19: PRINTUS (12) :L0CATE21 .19: 

PRINTUS (13): LOCATE 14 . 20 : PRINTUS ING"###" : 

WA : LOCATE7 . 20 : PRINTUS ING"###" ; PA : L0CATE2 

2. 20: PRINTUS ING"###'*;PB: RETURN 

1050 '••••• WAZA DATA ••••• 

1060 DATA <M- ^vh*Dv9 .'J** f'j9l\i)\ yf ' 

** ?bv7° .'** h*0*7°*v? >'>* **? % <a 

A* 7*b-^rt*79- .** A*v7h % Ds7° 

1070 '••••• CHR DATA ••••• 

1080 DATA 768.3C7EDFBF9FBF9FBF9FBF9FBF9F 

BFFF7E00 00000000 000000C2C2C2E600434343 

1090 DATA 872.3C42FFBFA7A7A7A7E7E7E7E7E7 

E7E7664343436700C2C2C2FF222222222222FF 

1100 DATA 1064.E7E7E7E7E7E7E7E7FFFFFFFF0 

0FFFFFF00FFFFFF00FFFFFFFEBEBE5C7C1028DE 

1110 DATA 1352>00000000FF000000FF000000F 

F0000 044EF446F41CA44DBAAFFAAFFAAFFAAFF 

1120 DATA 37.40.113.241,88.161.241.241.1 

29 . 1 29 . 1 29 . 1 29 . 1 29 . 1 29 , 1 29 . 1 29 

1130 '••••• SP DATA ••••• 

1140 DATA 060F0F06040F0F0F0E06060C0D1C18 

1C102858B060C0000000000080C0E06070 

1150 DATA 060F0F06040F0F0F0E04060A0B090D 

0D102858B060C0000000000000008080C0 

1160 DATA 060F0F06040E090A0B04060C0D1C18 

1C00000000000000C030E00080C0E06070 

1170 DATA 060F0F06040E090A0B04060A0B090D 

0D000 00000000000C030E00000008080C0 

1180 DATA 08141A0D0603000000000001030706 

0E60F0F06020F0F0F070606030B0381838 

1190 DATA 08141A0D0603000000000000000101 

0360F0F06020F0F0F070206050D090B0B0 

1200 DATA 00000000000000030C070000000101 

0360F0F 060207090 5 0D0206050D090B0B0 

1210 DATA 00000000000000030C070001030706 

0E60F0F06020709050D0206030B0381838 

1220 DATA 0000000000010307070F0E1C191038 

3C0000183C3C9840607038148CC0C06078 

1230 DATA 0000183C3C1902060E1C2831030306 

1E000000000080C0E0E0F0703898081C3C 

1240 DATA 0C1E1E0C040F37667636010A1A1B33 

7B00000000000080404040800000000080 

1250 DATA 00000000000000010101000101040C 

0400000000000040B0B88C088040603070 

1260 DATA 0C1E1E0C040F17323E1E010A1A1B33 

7B00000000000080404040800000000080 

1270 DATA 00000000000000010101000101040C 

044A208A00210440A29098089840607070 

1280 DATA 010303010103030303010101030303 

0380C0C08000B0B06050D080207038189C 

1290 DATA 01030301000101050D080002030306 

0E80C0C08080C040A0A0A0804060603070 

1300 DATA 010303010103030303010103030706 

0780C0C08012FFFFC0D0D080207038181C 

1310 DATA 0000000000000102060C0800020307 

0E900560F2F46062C0A0B0D0D860607038 

1320 DATA 010303010103020203010101030303 

0388D8C88818D0C07030C080207038189C 

1330 DATA 010303010103020203010107060E0Q 

0E81C7C68C38D0C07030C080207038181C 

1340 DATA 0000000103030103030B1B1 1060E0C 

1C00000080C0C080C0C0D0D88860703038 

1350 DATA 00000C1E1E0D030305060606040000 

00406060C0C080C0BCBCDC606070381800 



1360 DATA 00000C0C63EFFF690E070300000000 

000000000 17FFEC1FF7F 0000000000000 

1370 DATA 000000000000000000000000334C79 

F7000000000000000000 0103078EF8F0C0 

1380 DATA 0000000000000000000000000183FF 

FF000000000000000 000 00000 0CC329EEF 

1390 DATA 000103030101030303030101030306 

070080C0CC9830E0C08080A0B0 10406070 

1400 DATA 00010333190C07030101050D080206 

0E0080C0C08080C0C0C0C08080C0C060E0 

1410 DATA 010101000000000000000000010101 

008C0C88D8D8984060707030BCA470F0A0 

1420 DATA 060F0F0602071616030C1938000000 

000000 0000000808000C0C0400000 0000 

1430 DATA 060F0F0602071B1B030D1C00000000 

00000 00000000000 0080F87808000 00000 

1440 DATA 0000000000000000709B6FF6F66C0C 

18000 00 0000000000D7DF0 00E0E00 0000 

1450 DATA 060F0F06041F3F6ECECE060A1B3333 

3B0000060E3CF8C0 000000 00000000080 

1460 DATA 010301070902060C00000000000000 

00008000C02080C0600000 0000000 00000 

1470 DATA 010301000305050206060E00000000 

0080C08000C0A01040C0600000000000 00 

1480 DATA 00000001030301000B1B1D0D020606 

0E000010B8D8D89830F0C0C000C0606070 

1490 DATA 000000010303010001020602000406 

0E000 00080C0C0800080000000C0C000C0 

1500 DATA 0000000000000000000001070C3870 

4000000 000000000 000ED8E6EF6F36180C 

1510 DATA 0000000000000000030709367A7831 

020000000000000000C0A06060606060E0 

1520 DATA 183C3C1810383F3F38383818181818 

1C000000000000C0800000 0000000 00000 

1530 DATA 0000000000183C3C18103F3F38381C 

090 00000 00000000000000C0800020E0E0 

1540 DATA 000003030303030303030000010203 

0600008000000000000080000080800000 

1550 DATA 00000000000001030707030B1B3326 

3700000 0001 83CBCD8C0663F 1800000 00 

1560 DATA 000000000000005EDF0F0319191 101 

03000 0000000000 0000080808080808080 

1570 DATA 060F0F06040F0F0F0F060606060606 

07C06060C0C0C0800000000 000000 00000 

1580 DATA 000000000000010302060706050C1C 

3800 00 0060F0F06080C0FC3E0080C0C0E0 

1590 DATA 000000000C0C0E0605337B78300000 

00000000 000000000 080C09038180C0C0E 

1600 DATA 00000030182C340B0464F4F0600000 

000000000000000 1CFF3B80D0702000000 

1610 DATA 0000000000000000001E3D63450E0E 

0400000000000000 00000E0F89C060607 

1620 DATA 00000000382C06787F47010106092F 

3F00000 000000000000080C0C0C040800 

1630 DATA 000000000000000000000306193301 

3000000000000000000000C06098CC800C 

1640 DATA FF8083878F83838383838F8F80FF40 

3FFC060505050505050505C5C505FD03FF 

1650 DATA FF80878F98988081878C9F9F80FF40 

3FFC06C5E5353565C50535F5F505FD03FF 

1660 DATA FF80878F9898818180989F8780FF40 

3FFC06C5E53535F5E53535F5C505FD03FF 
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VRAMriSI35frf>t, 

^i^s^n— scours^ 

VRAMrii, 7^631 £U 

ria«^<?&£is^£«^)£ 

VRAM£*UfflU £££?«* 

fct ^«; SCREEN 1 \Zb 

FOR I =□ TO 25 
5:VPOKE SH1S0 
0+1, I : NEXT 
?lfiUrW5 K/u£5C 

^intt, SCREEN 1 ©K 
mtl«l lz*f/SUfcVRAM 

©Hig<r\ f3i;t$3^nt 
^±B^raBf»# x** 

-&Ur r 01 23 j©&¥£ 

iKofr©i^§©&£, 7i\,7 

© 1 (DT.^-MzV-0 [yOmfrs 

t<lc r /jC;±gurESi;. 
3©x?ii34sac«^tsnr 

6iii;sorn5©r\ i #33 
otzizm^tsntz-z^tcti^ 

oZ.£[Zl2.Z> a £Z5T\ r /j 
©*-f ^ S' =1 - S B33/cfr 6 

VP0KE©^eA5X-^C 

SStoU^ttfftfr-So WP§ 
fcll^CJinKc!:, tf55 




5o E*7k*£±B,Zn#fcifcbtf>7®ligo 




-♦♦♦ 

►♦♦♦♦ 

►♦♦♦♦♦♦♦ 

►♦♦♦♦♦♦♦ 

►♦♦♦♦♦♦♦ 
►♦♦♦♦♦♦♦ 
►♦♦♦♦♦♦♦ 
>♦♦♦♦♦♦♦ 

>♦♦♦♦♦♦♦ 
'♦♦♦♦♦♦♦ 



♦ > 
♦ ♦♦♦» 
♦♦♦♦♦♦♦ 
♦♦♦♦♦♦♦ 

♦*♦»♦♦♦♦♦ 

♦<>#»♦♦♦♦♦ 
♦♦♦♦♦♦♦♦♦ 
♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦♦♦♦♦» 



=fc 5 ST £t"*-f 5 £ <7 zi - K 

T£>£, r ^ J ©*i'3^5'a 
-KK1, r ?J>jffl*-f^^=i 
-KBiedBMS^SHOOC 

&3liH*fc7J ; o 

r B>jtCLS©S*!!>^ll^ 

-KS©0A N 63lSrCBT=i 
>hP-Jl/=]-Sj£l/7T«# 
ftr^&lV TSi, 35©?'^ 

ij-fflftfrb&najtsc&or 

PRINT CHR$(l2) 
r *!>jtfS*£n5/c3-57J\, 



*53Aa -^^©lasis 

-^a-K£n5fc"tt35^z\ 

&/u/c7J N P>hP-JbUrU£ 

&££iwLAUrus5o 



r-u, =6,5 1 -3©? 



£-3 



SCREEN l T' 



£©JSffl? 

VPOKE SH1S0F, l 
2 

®©R±ff c t :i *Wfi©^fi/fC^ 

U5a^&ffl7c7j\ $Jttt£*> 

W±ffl3t^, #JSB3gli(± 

\Z, 65( r Ajffl*-f z>05>z\- 



K)?gtur»5<±:,££t>;£^ 
or=& r Ajtfss*n5o 3n 

tt32li(±Ad:6TA;r|BlL;o '>& 
<£=&3?li(±©JI£IJ, A£- 

&©fc* 

&£ l ±:l;:&orn3©7J\ ! Uo 

0^to3IS"CBP>hP-JUa 

3©BB^ttP>SP-Jl/=l-K 

©Jg©SC&om3©*;7J\ 

VRAM-CB^Og^S^i&g 

©3<t^iEitlclS r K^->S 

353©r\ -&©'\A,iafcn'^ 

-f W^l^^©*^^ 

=l-S£0 7b N 63l/cd:n5, ^ 

L«t$5 t(D&.z>\zmm{j 

Zl\&-? -3.7 JU*3D§©fc"o 
fcEU s PR I NTXTStS-T 
«.^^IS. «ffi!IC, 
PRINT CHR$(l)+C 
HR$(X + B4) 

'V^7 + 1'^^$'©+1'5^^a 

fct\©S6. 

PRINT CHR$(1)+C 
HR$(1 2 + 64) 

trnis; arctic r #jtfs^ 
v-zLTJbr-is, $=>?■< vo 

+1'^^5'©a-KBSH40 
~SH5F(l0iiUB4~95)r, 
PR I NTXr-S^TSt^U 
^77< 7^"\'y^CHR 
$(D^«W5d:n5UtB5l3^ 

3C:lq|i;;z£&/ufcd;ta;Lo 




£613 



£%#<«>A;<!f5*fU7lWr*j/ 



JWMBB3iOasll^^B5atij^ 






*fsfc • skew r tf faj 

IB FORJ=14TO0STEP-1 :FORI=255T 
O1STEP-15:SOUND8.J:SOUND0.I:N 
EXTI .J 



r tf3aaa->jtu-5«fe©»L;ij-SBA^ 



10 PLAY"T120L8S9»12345O4EA-A-9 
A-1BF9A+1" 



V©t©# ; n5«^&ts[;)-&l\ r h7K7tw1\j : & 
df&^ffll^tmnrr^P^A. 5Effi© 



10 PLAY"V15O7L4S14M100CDEFEDC 
R4EFGAGFER4CR4CR4CR4CR4L16CR1 
6CR16DR16DR16ER16ER16FR16FR16 
L8ER8DR8CR8" 



ss«©TAIKI^>(M)ffli / FSB r -r^^ 

to SI 4tUri>^n-^"^14ll©=^ 
S(TH#^)C|S^U,)1SS^10D(M1 D 0) 

tmsbizwfet&ztizck^z. &(Dm\zpj. 



l>A;n-7^tt SI 4 



gOT*S5 




i$m 



s^i4©^^icur,M^^^800cur* 

S-To SL^P(gS©£ib)©^tf-K/K* 
4, 3, 2, ltgjtriKd:, x>a;p-^© 

©ii©^b£ss^s l econrwar 



ft«*-T-3<A,u 


r JSJ6& 


->^< hitai 


10 FORI=0TO13 


:READA 


SOUNDI.A: 


NEXT:DATA. ■ , , 


. . ,56. 


3.16,16., 


8,9 






20 FORI=1T05: 


S0UND7 


56:FORJ=0 


TO800:NEXT:SOUND7.49:FORJ=0TO 


800:NEXTJ.I 






30 SOUND6.20: 


SOUND7 


7:S0UND8, 


16:SOUND13>9 







£|*!!i[3itrtB3nA^Ronni£42>til 
BttiUru-5o^[e] : fcRomi£^«)3A#$ 

tsr,ro<A,L/^>(M)© r &fia£'3*<b 
^-rgjB7^x7tfLM^r-rft 7-^-t 

rl/S-3, tl^XK-'J-o frPOTOR 



10 SCREEN1 :COLOR15,1 .1 

20 SOUND7,56:FORI=0TO255:SOUN 

D0,I:SOUND8.16:SOUND12.50:SOU 

ND1 3.0: NEXT :FORR=0TO999: NEXT 

38 IFA=1THEN60 

40 FORI=15TO0STEP-1 :PLAY"T255 

V=I;05C3206F16","T255R64.V=I; 

03G3204D16":NEXT 

50 PRINT"*»'i#l.i":A=1 :FORR = 0TO2 

500:NEXT:GOTO20 

60 SOUNO6.25:SOUN07.23:SQUND8 

.80:SOUND12.30:SOUND13.0:PRIN 

T"#*l»..* 



t.BY'^iis i§IIK©MOS. S#(MSX 
£+)©fl^»^bb7U\7>fcU£IEHfrb 

fB^UfcRCTffm^^b/n^rSA'SI 

trr v mos. s»B3ti.rtortc<«-^ 

MSXE+^mm btzo Z-tp-titfZ', fr 
S. IWjtSSo ;^^t,*'>AJ[/cfc-5Co 

&r, ^© r ^H©fcHj©=i-^— nsfc 
ufc„ ^^^o(^y^picn®o 



5, !-Xt<75;t5 J 9 : TT r 77>yA|*|^'5>K7^-7Aj1^S:g5P1JfclJSSgeniT*SU <*»l\p *T»i73'>^AtB|l;T-r„ 



»<r>m i tt^tz7'n-?'^Mmsx2/2+mT-T 




2 * 'J x -r cfc 9 =fcH©P-r xT^Ii®^ Iz 

j:o r ffiffls*^-r o «ait/c=fe©tf sues 

3"„ 5— A/, ^35lUtf)\, 






10 FOR 1=1 
EEP :NEXT 



TO 4:SETBEEP 



I,4:B 



W^JHStfflXil^XMS)^ *7Jf 



:U 



r £^ jli^l'T'T'lfC-ro ?P^A 

©^ mi, MSXE©SETBEEPm^£*iJ 



#«jhk • xmrnx. r +*«w*ftj 


ie 


FOR A= 


= 


TO 200 




20 


I = RNDd) 


:IF I > .81 


THEN EL 


SE 


20 








30 


SOUND 


7, 


7:S0UND 6. 


12 


40 


SOUND 


8. 


16:S0UND13 


.1 


50 


SOUND 


12 


.12:NEXT 





5VB, ffP0r53KRND§f?5£<£org 

nrsftrott u lis® u^rr l\5c 



^m*- Dragon r *y^3->j 

10 A$="SM100CCCR32CC":PLAY"L8 
"+A$:PLAY"L16"+A$,"R64U16"+A$ 
20 FOR I=0TO 50:PLAY "L32"+A$ 
. "L32R64"+A$:NEXT I:PLAY "L8" 
+ A$ 



>(M)© r 7K-7?=i->j[J-&©€ffl£fc>3© 

SSB<Sorn-T\ KDo<Ogtftbteto, 35 
£ttjg$ftl::50Hl5]Utltfai3<£5C&or 



$»»• WHITE r =NSA(7)&t£ji 


10 


SOUND 


7 


56:S0UND 1 .0 


20 


SOUND 


3 


0:SOUND 5.0 


30 


SOUND 


9, 


16:S0UND 8.16 


40 


SOUND 


16 


.16 


SOUND 12.10 


50 


SOUND 





255 


-RND(1)*255 


60 


SOUND 


0, 


100 


-RNDd )«100 


70 


SOUND 


2. 


250- 


-RNDd )*250 


80 


SOUND 


2. 


105- 


-RND d)*105 


90 


SOUND 


U, 


245- 


-RNDd )*245 


1 01 


SOUND 4 


.110-RND(1 )*110 


116 


SOUND 13.0 




126 


FOR 1 


= 6 


TO 


18:NEXT 


136 


GOTO 


se 







X— £> cniifSffl^SfrifdASSofc© 
!1©WH ITE(M)^>o 



10 FOR I=1T0 13 

20 SOUND I.15:SOUND 9.I:S0UND 

I.94:SOUND8.I:SOUNDI,120:NEXT 

I 



H©=ly\:v><^(M)lsc:©Eo^s^>d: 
wmti-<y*2V7i,mi,ico 



«g*»-YOSHIX f ^)(Jffimki 

10 SOUND 6.31:S0UND 7.134:S0U 
ND 9.16.-S0UND 10.16:SOUND 13. 
14 

2fc FOR I = 0TO 20 :FOR J=30 TO 
255STEPI+1 :SOUND .60+A: A=A+ . 
1 :SOUND8.15-I/3:SOUND11 . J: SOU 
ND 12.I:NEXTJ.I:S0UND 8.0.-SOU 
ND 9.0:SOUND 10.0 



ikmzmtittEtmzjtmuzzsfo £ 

33,YOSHIX(M)c77>^A?<tSi:'SE 

cDmzt fa*m(Di$\jztv?>(W(D r mmi 

fedaUU Ifiacfc< 353=fc©7c(;r£\ zn% 
t. h- u -t±trr t Ufcrotiiss^^so^ 



10 SCREEN1 :I=RND (-TIME):FOR 
I=0TO 5:PLAY "T1 28L1 2S8M1 70N" 
+STR$IINT(RND(1 )«5+50) ) :FOR J 
= 0TO RND d)*200 + 100:NEXT J.I 
20 FOR I = 0TO RND (1)*5+2:PLAY 
"S10M90O4A4":FORJ=0TO 1000:N 
EXT J.I 

30 PLAY "T255V1501C32":PRINT" 
So*l/fc* *,*!,! !" :FORI = 0TO 1500:N 
EXT :CLS:PRINT"IE *eS?*068A.Z* 
5<J:!!":F0R I = 0TO 1000:NEXT :P 
LAY "C32R16":F0R I=0TO 1:1=0: 
PLAY "C32R16":FOR I=0TO 1:1=0 
:PLAY "V1104A2. .R2":NEXT 



SfilfflS^K i z e r ^7>(M)©^gg 

T mmAi, Bi;«)icH±fcs©^u-r5sg, 
■d&z, tfcn«t wmm£istzi\izmij<te 

$z>z-mm%:%,zi\ : §>c}:z z >teWimmzfo&ti 

Zl^-f 5C, cf;LiAcf35o 





fi«S • SttKizer r «*j 




10 SOUND 7,&HB7:F0R 


I = 0TO 255 


:N=RND d)«256:SOUND 


6.N:S0UN 


D 0.255-N:SOUND 1 .N: 


SOUND 8.N 


¥16:NEXT:S0UND 8.0 




20 S0UND6.255:F0R 1= 


0TO 150:N 


EXT :FORI=0TO 256:J= 


RND(-TIME 


>«256:SOUND12.J¥16:SOUND13.0: 


SOUNDS. 16:SOUND0. 255 


:S0UND1 .1 


*16:NEXT:SOUND12.255 


:SOUND0.2 


55:SOUND1 .255:S0UND8 


.16 



mi^X ^UttMSXEUfflfflV 
DP(e4)*ffiofcftS„ MSX 

E^JfornsAttRPUSC 

r 5^L^35jtO/3^<3tC&iD^'r & 

ftiomto Romi-yyua-sBizw^m 

0¥/3<;3i:lzU^L/d;5o 




ftE«•«SP1^^•5n^mRomi 

10 SCREEN1 :KEY0FF:WIDTH31 :COL 
0R3.4.4:L0CATE 1 1 . 3 : PRINT'Mob 
i 1-1 ".-FORI = 0TO29:PRINTMIDS ("- 

30°c o tiyn:*t).H*-trz % <e*-ff-*>zti 
".1+1.1); :FORJ=0TO50:NEXTJ.I: 
S0UND7.62 

20 FORL=0TO9:FORI=15TO0STEP-. 
5:SOUND8.I:VDP(24)=255-I:FORJ 
=0TO1 : SOUNDS . 1 40 : SOUND0 .150: 
NEXTJ.I.L:LOCATE 11.10:PRINT" 
M.k»l. . .":GOTO 20 




*r, =fc5 1A©MSXE+ 

75f7GAN-Pii^>7Jt 
t\ tZlZ£,%-3Z(D75&%>l\ 

?1C>P <z\®Dtzl^tZ?>tzt)\ &ICU3 

^st)©sa=fe^<L^ssr-ur, (^75"ct 
4^rt4\ s^fcH*#x5«t, re 

Uaib«K«£fc*SU SL/t/:fciJi:a 
L^L>*>4t#t,*So t\ 8fl#aSE#© 

-/«-j tLTA/:„ T-Ar-'<-UMffi 

L»«iJ5fl31H r 77>^'Arti7-^>K7 
t-7ij ff«$SCP^T*-3-C</:#\.< 



■i i.v- o^a; i*^.: -«. v i. ^^- ■^--■i.j,* ^ ■•(,*. -vj 



^i^^^f-^ 



S7*— 5AT(4, 5{»§<7)«;-t?-S:*)%. £ U$j^.-rSfflLfc'b r M jOT*P#t JiKISOTS^o 2lalg(7)fijfflT r MSj. 3lelgT- r MSX/j.-f£«->-§-iJ 
(7)77 h (fc^LSfflST- 1 ^RfeW)S:«=fr5, -3* ( b1-L»tWp*iS-3TSfcib«i^«BE(li< fc-3)fc*S(7)T-'C-r5J: TCSMt). 




II 






I 



^©#3©f1fS[3: r H*©/b\ J o 
E;£SP§. ?EWti*. Wmism 

^->ISBtf-K©D^i7>P 

s^^©sufcris*^7r^A' ; 



&mO<ti-&l\ofcZ9£&. r F 
M b S= f§ j £ d; ^ £ % IZ& 3 EB 

^D^'5A©I55B. @5© 
7T-7Kl<l:@lD©^^-©§© 
BmtottiilMA FOR-N 
EXTJU-^Cd^SfflfflU tf- 

■DZl\UlWi,A£t<s.i)3mz-t 



10 ' NIPPON NO KOKORO 

20 CALL MUSICd .0.1 .1 .1 >1 .1 .1 ) 

30 ' 

40 PLAY#2."35V13T180>>L8" . "3393V 1 1 2T1 80L 

8>"."3393V107T180L8>" . "31 0T1 80 > > >L8" . "L8 

312T1803V95<" . "31 4T1 80V1 33V1 1 2>L8" , "T1 80 

V33A13" 

50 ' 

60 A1$="L8>3V120E2&EC<3V1 1 5BAB4A4L20FAFA 

FL83V107EC 

70 A2$="E2&EFEC<3V99B4A4B2>3V120 

80 A3$="E4.FE4C4<3V99B1 >3V120 

90 B1$="R4BBB4A4R4BBB4A4 

100 C1$="R4FFF4E4R4FFF4E4 

E1$="E4.EE4D4EFAB>C<BAG 

E2$="E4.EE4D4EFECE4. 

F1$="L8A4FFFECCEFAB>EC<BA 

F2$ = " B >C< BAB >C< BABAFDE4 . 

F3$="E4AABB>CCR8BAFEC<BA 

F4$="FEC<B>FEC<A>EFEDE2 



110 
120 
130 
140 
150 
160 
170 



EBFM^ilftS©MSX2 + 

mm, )Sffluts«-«? mm 






<Z1«*8« 



FM§*ilrlS.MSX-M 
USIC^ffiofcHH^a?' 



ZMZ, =rl05 JKJKil3;gE?/f 
H4-10-7 TIM MSX • 
FANS«SI? r F M^^flj^o 
£h£M9LmyjZ<tztLl\ 



180 A5$="3V100C<3V95BA3V87E>" :A5$=A5$+A5 

$+A5$+A5$ 

190 B5$="R4BBB4AABBBBBBAA 

200 C5$="R4FFF4EEFFFFFFEE 

210 E5$="E>E<E>E<E>E<E>ER8EFFE4CC< 

220 E6$="E>E<E>E<E>E<E>ER8FAAB4AE< 

230 E7$="E>E<E>E<E>E<E>ER8FECEC4<B 

240 E8$="E>E<E>E<E>E<E>ER8EFAB>C<BA< 

250 R1 $="B ! 8B ! 8C ! M8M8B ! 8B ! 8M8M4B ! 8MS ! 4B ! 

8B!8C!M8M8 

260 ' 

PLAY#2."".B5$.C5$."".""."".R1$ 

PL AY#2. ""."".""."" .E1$."".R1$ 

F0RR=1T02 

F0RS=1T02 

PLAY#2.A1$.B1$.C1$.A1$.E1$."" . R1$ 

PL AY#2 . A2$ . B1 $ . CI $ . A2$ . E2$ . " " . R 1 $ 

PLAY#2.A1$.B1$.C1$.A1$.E1$."".R1$ 



270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
R1$ 
420 
430 
440 
450 
460 



PLAY#2.A3$.B1$.C1$.A3$.E2$."' 

NEXT 

B1$.C1$."".E1$.F1$ 
B1S.C1S."" .E2$.F2$: 
B1$.C1$."" .E1$.F3$ 
B1S.C1S. 



PLAY#2.' 

PLAY#2,' 

PLAY#2,' 

PLAY#2.' 

NEXT 

PLAY#2,' 



.R1$ 

R1$ 

R1$ 

R1$ 

>E2$.F4$.R1$ 



PLAY#2." 
PLAY#2." 
PLAY#2," 
PLAY#2." 
GOTO280 



iB5$.C5$.A5$.E1$."316"+E5$. 

. B5$.C5$.A5$.E1$.E6$.R1$ 
. B5$.C5$.A5$.E1$.E7$.R1$ 
.B5$.C5$.A5$.E1$.E8$.R1$ 



70 



II 



FMS*B(Dx--7 



1 



ffl^eiur<nsufc„ tr*- 

y2fc«fr&fr<J;<r£rL\fc 
L,fc/rofcffl<^Htf r FM§5g 

fgo^-v j /c o tor-s -di o 

To/K-O kb ax q («sjcaa 
r<f>XQT'-f)o^cpicia^ 



* • A^-Kftfflr-Ttf, BX 
PJ^KK^ABmHCL/r^3 

tztzUAxnizt,a^UhjZ, 
•^s^So fc& enliven 

sii&o ^js©b^^ss^o 



10 CALL MUSICM ,0.1,1,1.1,1,1) 

20 P1$="3605V11" :P2$="31105V9" 

30 P3$ = '*36O4V9":P4$ = "30O5*' 

40 P5$="30O6" :P6$="33303V11" 

50 P7$="31604V8" : P8$="30O6V5" 

60 P9$="3306V8L8" 

70 A1$="L2C.F." :C1$="L2F.A." 

80 A2$="A.&A&A8A8" :C2$ = " >C.&C&C8C8" 

90 A3$="L4AB-F8D8F.G.":C3$="L4CD<B-8G8B- 

.B-." 

100 A4$="L16G2.&G4.AFG":C4$="L16>C2.&C4. 

C<AB-" 

110 A5$="L2F.&F4.":C5$="L2A.&A4." 

120 A6$="L2F.&F&F8A8":C6$="L2A.&A&A8>C8" 

130 A7$="L4AB-F8D8F.GG-16F16":C7$="L4CD< 

B-8G8B-.B-A16A-16" 

140 A8$="E2.":C8$="G2." 

150 A9$="L8V8C<A>CFGA>C2." 

160 D1$="L8Q5V10FV7FFFFFFFFFFF" 

170 D2$="V10E-V7E-E-E-E-E-E-E-E-E-E-E-" 

180 D3$="V10DV7DDDDDV10D-V7D-D-D-D-D-" 

190 D4$="V10CV7CCCCCV10CV7CCR16C* 

200 D5$ = "V10CV7CCCCCCL8CCCV6FV5EV4E-" 

210 D6$="V10CV7CCCCCCCCCCC" 

220 D7$="V9DDDQ8D4.Q5D-D-D-Q8D-4." 

230 D8$="L8V8R30>C<A>CFGA>C2" 

240 F1$="L8<A4.A>F<A>C4.CFC" 

250 F2$="E-4.E-GB->C<B-GE-CE-" 

260 F3$="D4.D<B->DD-4.D-<B->D-" 

270 F4$="C4.CEFG4.L16>AFC<" 

280 F5$="CCCCCCC4.V9FV8EV7E-" 

290 F6$="CCCCCCCCCCCC" 

300 F7$ = "D4.D<B->DD-4..D-<B->D-" 

310 F8$="C2." 

320 K1$="L4V8D.ED8C.D>C8<" 

330 K2$="<B->D8C<G8A2B-8>C8" 

340 K3$="D.E.EG8F." 

350 K4$="F.GF8E.G-32G16.&G" 

360 K5$="V9F.GF8E-.F." 

370 K6$="D-F8E-<B-8>C.C8D-8E-8" 

380 K7$="F.G.GB-8A-." 

390 K8$="L8>CCCC<A-FB-B-B-B-GE-" 

400 K9$="V10FFA-<A" 

410 G1$ = "33605L8V8DEFE4DE-CDED>C<A4>C" 



420 G2$="DEFE4V6DV4C2." 

430 G3$="30V7DCDV9E4<V7A>V9EDEV11F4V9{FG 

>" 

440 G4$="V12A4.V1 1 AB-V9B32 >C1 6&C32< G2 . " 

450 G5$ = "336V8FGA-G4FG<:FGF}E-C4E-" :H5$ = " 

33605L8V6D-E-FE-4D-E-R8<B-A-4>C" 

460 G6$="FGA-G4FE-2.":H6$="D-E-FE-4D-C2. 

470 G7$="a0V8FE-FV10G4V8CV10GFGV12A-4V11 

<A-B->" :H7$="30V8D-CD-V10E-4V8CV10E-D-E- 

V12F4" 

480 G8$=">V13C4.V12CD-C<B-2V11FA-":H8$=" 

V13A-4.V12A-B-A-G2V11D-F" 

490 G9$="V13G4A-Q5AQ8" : H9$="V1 3E-4FQ5DQ8 

500 I1$="L8R8A>DE4D8R8<G>CD4C 

510 I2$="R8<FB->C<B->C<A>DEAGA" 

520 I3$="<B-AB->C<A>CC<B->CD<B-G>" 

530 I4$="R8CFAFCGEC<A>CG" 

540 I5$="R8CFG4FR8<B->E-F4E-" 

550 I6$="R8<A->D-E-D-E-CFG>C<A-E-" 

560 I7$="D-CD-E-CE-E-D-E-FD-<B->" 

570 I8$="R8FGA-B-A-GGGFFF" 

580 I9$="GGFE" 

590 R0$="B!S!8B!S ! 1 6B ! S ! C ! 16" 

600 RX$="H8HB!8S!8H8HB!8" 

610 R1$="B!C!H8"+RX$+"B!H8"+RX$ 

620 R2$="B!H8"+RX$+"B!H8"+RX$ 

630 R3$="B!H8"+RX$+"B!H8H8H8B!C!S! 16BIMS 

M6B1MS! 16" 

640 R4$="B! H8"+RX$+"B!H8H8HB!8MS 18S16S16 

B!CS!8" 

650 R5$="S!H8SMB;8MB!8C!S4.S!H8SMB!8MB!8 

C!S4." 

660 R6$="C!S2.HS!B! 16" 

670 R8$="aA4H8H8H8C!8H16H16H8C!8H8H8H8H8 

C!8" 

680 R9$="C!8H8H8aA15C!16R16" 

690 PLAY#2,"T110","T110" ,"T110","T110"," 

T110","T110","T110V0aA15" 

70 PLAY#2,P1$,P2$,P3$,P4$,P5$.P6$.R0$ 

710 PLAY#2,A1$,A1$,C1$,D1$,D1$,F1$,R1$ 

720 PLAY#2 , A2$ , A2$ , C2$ , D2$ , D2$ , F2$ , R2$ 

730 PLAY#2 , A3$ , A3$ , C3$ , D3$ , D3$ , F3$ , R2$ 

740 PLAY#2 , A4$ , A4$ , C4$ , D4$ , D4$ , F4$ , R3$ 

750 PLAY#2,A1$,A1$,C1$,D1$,D1$,F1$,R1$ 

760 PLAY#2 , A2$ , A2$ , C2$ , D2$ , D2$ , F2$ , R2$ 

770 PLAY#2 , A3$ , A3$ , C3$', D3$ , D3$ , F3$ , R2$ 

780 X=X+1 :IF X=2 THEN 910 

790 PLAY#2,A5$,A5$,C5$,D5$,D5$,F5$,R4$ 



800 PLAY#2," ", 

810 PLAY#2,G1$, 

820 PLAY#2,G2$, 

830 PLAY#2,G3$, 

840 PLAY#2,G4$," ", 

850 PLAY#2,G5$,H5$, 

860 PLAY#2,G6$,H6$, 



, P9$,P7$,P8$," ","" 
," ",I1$,I1$,K1$,R8$ 
," " , I2$,I2$,K2$,R8$ 
,13$, I3$,I3$,K3$,R8$ 
,I4$,I4$,I4$,K4$,R8$ 
, 15$, I5$,K5$,R8$ 
, 16$, I6$,K6$,R8$ 



870 PLAY#2,G7$,H7$,I7$,I7$,I7$,K7$,R8$ 

880 PLAY#2,G8$,H8$,I8$,I8$,I8$,K8$,R8$ 

890 PLAY#2 , G9$ , H9$ , 19$ , 19$ , 19$ , K9$ , R9$ 

900 GOTO 700 

91 PLAY#2 , A6$ , A6$ , C6$ , D6$ , D6$ , F6$ , R2$ 

920 PLAY#2.A7$,A7$,C7$,D7$,D7$,F7$,R5$ 

930 PLAY#2 , A8$ , A9$ , C8$ , A9$ , D8$ , F8$ , R6$ 

940 END 
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